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"die neue...” — Sie haben richtig 
gelesen! 

Ihre CPU kommt noch vor dem 
Jahreswechsel mit einem Konzept, 
das den Erfolgskurs nicht nur fort- 
führt, sondern ausbauen wird! 
Lesen Sie auf Seite 6 mehr über die 
neue CPU — das kompetente An- 
wender-Magazin... 


Inhalt 


Portabler 
16-bit-Personal-”" 
Computer von 
Panasonic mit 
Oeingebautem Drucker 


GPU-Toolkit 


-Eilteriaf 6 schnelles Suchen nach 
Zeichenketten 
für Atari Basic 11 
Auch diesmal stellen wir wieder CHR$’s beim TI-99/4A 14 
phantastische und brandneue 
Programme vor 7 Spectrum-Assemblerkurs 
(Teil 4) 80 
Club-Neuvorstellungen 45 


mit weiteren neuen Begriffen 20 


2 CPU Dezember 1984 


Inhalt 


GPU-UTILITY 


as Programm r S 
Anwender-Software für "OyStÜCks zug der za Yür den Appyg sl 
Apple Ile R-Se n di Mögliche mjg Hilfe 
Grafik-Tablett 22 ZU malen, des 
V6-20 
Synthisound 24 
VZ-200/ Laser 210 
Zahlensysteme 27 
Data Generator 29 CPU-GAM E-HUNTER 
Commodore 64 Spielprogramme für: 
Lösung von T1-99/AA 
Gleichungssystemen 30 Chicken Joke 50 CPU-HAPPY 
Sharp PC 1251 Vc-20 bringt ab sofort Spiele und 
Leasing Consult 15 Underground 52 Rätsel, bei denen man auch 

etwas gewinnen kann. 

Sharp MZ 80 A 6-64 Wir starten die Rubrik mit 
Speed Print 32 Duell 56 einem Weihnachtsmärchen 12 
CPU-POCKET m „„ Kleinanzeigen 
Ab sofort dürfen auch alle A 
Besitzer von Taschencomputern Sharp MZ-700 u 
die neue "CPU" lesen. Wir a o„ Kassettenservice v. 


starten für alle Pocket-User 


eine spezielle Rubrik “2 GPU-PODIUM CPU-Bibliothek 


ist der Talk-Treff für Neue Titel frisch von der 
GPU-Markt 47 alle Leser der ”neuen” CPU 68 Frankfurter Buchmesse 75 


EEE EEG TETTEE EEE WEEZE LEHE EEE EEE TETER EEE] 
Dezember 1984 CPU 3 


AR wa “86 anu 
»» AICL - 99». 


‚any sınypledwoy ıoq 


X-60P-SP288-ENASI 
6OPE IN-Isag:enasseypunyong 
vayaszıe 

sıny-JIsvg wnyoads 


uauaszse 
Pıy-AauoH yw sıny-JISVg 99 10powmoy 


"US SIXEIJ-IOIQWASSY SU 
-B1I9M alyj IN} Yolıyaqyuaun 18 PlIMm Sneuiy Jeq 
-nIep "auweußorg-jeidsiag sep Bungo1dı3 pun 
Bunzjssisan aıp Inj nu JyoIu — Juawnsuj saß 
-IHOMIION UIS |SI aNEySIQ JOPO SNassey Jep ne 


aojquuassy ı9Q 


"Bunuysaswn UaIEP Pun uspeuojuajyez 
uauapaıyosıaa ıw Bueßun uap &: 
-gjeıds u) uauy| Jo Jonıuuan yoıızy 
qıy autos 'yıly uauy| sep 'sıau 
-y99y Sauy| uagajuauu] Sep UI Jalsua Ayj IS! 
A9UTEIL-X9H IQ 


"usgoıdıa 
nz yosıyeld ajulsjeg sep ‘uajjey ajaıdsıaq 
-wweußoig allyemeßsne Siyejdios Yaubıaad 
pusbeuonay wemeßelyosyyen Sie yone 
yong sep Isı ueyypIsIaqN) apuassejuawwesnz 

weisis usulss young 
"PelneLe pun uageuyoseq uepıem J0SSaZOJd 
uoßilamel uap ın) uauonynasu] aııy "Bunian 
-weubold-aiqwassy ap u Bunymurg ayoı 
-pug}sion Jydle] OOPal ‘aueipun; auıe Jeylus 


yang seq 


"UEpUsmIan aWuWeJBOId 
UEJSEM Sl] IN} aulajsneg Se LIEB — Sasıny 
sap gnIyosqy ydeu yone — als uapıamaıı 


Suwrureıßo1g SI 


2-200-SpL88-ENdSI 
ZOPE IN-Iseg:Nasseypun yong 
eyes 962 

Sıny Jelqwassy P9210P0oW€IWLoY 


1-80P-Sp288-E N9SI 
8OHE IN-ISOg:ONONSIq pun yong 

uoas0rz 
Siny-iqwassy 


op erddyz ‘02 IA ‘79 9xopouruıoy ıny 


92) uelyajsg-1Nlo0L 


10) Bunysasquoy u puıs 


an) Bunysasquoy u puis 
SSINY-IISVE 319m 


"ua]lOMm uEJyDIZIEAJyDlU PIY-AauoH jne 
aIS UapIem 79 SJ0POWWOOZ Wap ji uaBunp 
-UBMUY USJE}IBM ualy] Iaq yony "Bunssiwweuß 


-Old Jap 189 (13S34 'ONIZ 'OLNV 'ON3ddV 


291 885 8xaaL - IF F9 ZU L ı zo voJsjaL 


0£ J40013SSNA 0007 

Lı1 Bam Jebuesjsbon IN 
"OVIHSA- u 
:Ue SIUYIISZIOA-WESaH Jasun 


SNIq aIS UISPIO) — usuusy you you 
wwesBoldyong-X3gAS Sep Is uusM 


juaglauyos 
nz swweißolg uauaßıe aulag 'yosusjeids 
aule| pun uEJeIWLWEIHOId-IISVE WI enuyas 
uejsıe auıeg OHOIN YILSIW IW uewwesnz 
Sypew "ueyvew ÖBilemzıny pun pusuueds 
yaIıg N} UELI] sep aıp ‘Swweußolg apusı 
epuajsqies pun swweißoldsßungn ‘sjeids 
ayaızyesnz ng Isapuı) sebenusreg wep jny 
"Pepe asıemuaın]s JIq UEPIEMm yong wep sne 


aururex2ßoId 9Idq 


anu ın} yaıdwoy t9r Id9 Aoplauyas 
— wuwNsaßge Jopueulajne 710 Aepuıs Wa 
Leyy 


S-90p-SPL88-ENBSI io 
YOPEIN-ISOg 
:onassey]pun yong ? Ssıny1aquassy alayaMm 
uns zuz x 
SINy-aIquassy OZIA EI 
S r9% IdI 42PpIı3uy9S 
0-EOP-SP288-E NASI E 1eHu E-OLP-SPLBB-ENG: 
SOPE IN-1Sag:enaysıq pun yong TO A1eJO9UIS OLPE IN-1Seg:@Nassey pun yong 


uallag 821 
LPpueg 


jeuejg apwey) sag 


©-LOP-SPL88-ENBSI 
LOPE IN- sag :eNassey punyong 
uSNeSyrl , Jeueld epweyy)Jaq 
Hpueg [ 

1-S07-SPL88-ENESI 


SOFE IN- sag :eNeysıg un yong 

6-POP-SPLBB-ENBSI 
FOPE IN-NSg:euassey punyong 
uENESgEL 1eUEId EpWaU) J0d 
Lpueg 


uon ayey auıa 


ge 
alın 
uaSınyU197 pun -jeıdg 
uap ul — ueulel NZIISVE 
Bam alspusuueds 


100 


Jenajusqy JISVI 029A 


Janayuagqy IISVE 99 210powog 


82 82 S8 /7 0 1OL "YOAINZIIH G829 

‘2 .Nselsnpu] 'OY ITVHL :ZIemyag 
86 #6 19/22 20 SL 

‘usıM 1901 ' NsBulawuy 

‘843 J2}u89-YonqydeZ :yolsuaysQ. 
usbunsajausny 


iyoeuep 
@IS ueBelJ Jasneyjney Jop usBunnsige 
-4s1ndwo9 usp ul aImos [apueyyseJ pun 
-yong wi aIS ueyleyıs opfnpold-XJgAS 


"UBJa1LIWEIB 
-oJd nz JISYg u! Je1ndwog uauıag ‘ng Isule| 
taquaqeu Is} pun Auyos in) Nuyas "yong 
wı ng Isopuy ewweißolg alp uuap ‘usyoeu 
NW ng Isuuey !egeg 'ynW uopıam Yeıwweuß 
-oJd JISWg UI JEP "uaueıpaq nz Jeindwoop4og 
uop 'usuls] USPpjeH Ip uassnw "uaßelyos 
-JoN yıyoswney sopway} uls Iny "napunyuyer 
"12 sul osIay Spusuueds aule Ine — OHOIWN 
YILSIW Iw uewwesnz — yoIg Hynj yong wı 


SyOFIISSQ aIql 


Jonajueqy JISVg wnapads 


zo[quassy woßtyersuonyumy IfoA jrur u 


SSINMN-IITQUOSSY % zu Me 


"uauss| JISVg — !8Q 


-usgau zueß — aıS gep 'uassaßJan aıg uasse] 


awwesboudyisnw 3110} It 1 
-JOMyne uoNewiuy Pun Yıyels) y9ınp asaılp pun 
ussse| uapuıquıa uaaunpusmuy Ususdls auyı 
u sojwelgo.d ysıs aıp ‘SQuswbas-wwesßorgd 
usuyj wIEJal] Jofelsusg-s1uds pun -uay9Ilaz 
aım awweyßolg :uapıam Jolejsaßsne uspjayg 
USYIISIYOL} UL YONe USUUOY ‘uSpısm Yalneı 
ap yong wı aıp eßenusjeg wep jne 
SwureıßoId 3Iq 


veuyı uajay (ean Avid 'OdWaL ‘LOId 
'S3YIH) ualyejsg-punog pun -Yyeud Jegny 
uaıysjsg uayızyesnz OE Aw Bunssnamug 
! (999 ıny nu) pıy-AauoH 
HUNISNaMmIT Id 


umıoods pun 02 JA ‘y9 I up me 
ayonpua6nf pum zopury zuy m 


aonaJusagy DISYH Bm 
[22 


-uapıam Bunßiyeyasag 
ueßlllamziny Jaul® nz Sınyula] uaseip uas 
-se| ajaıdsıag-wweißolg — SaIsSjeBSne Bi 
-B1os — ajaın pun usßungn "ussse] uepuamıen 
uswwesßolg uauaßıa ueiy| ul JepeIm Jawwı 
Jeyeds yone ypıs ap ‘Punog pun Yıleıg ıny 
LSUNNOY ’g’Z :UEULOY UEPIam yassaqıan pun 
HaJIEMIS asaıp aIm “uaßunbanuy aaa JqıB pun 
Jebeuusjeg Wep ne awuweißorg aıp yayngo 
s3Z 'sıeuyday sauyı Bunsstwweusorngd-Iisvg 
aıp uı Buniynyuig-Nuyos-inj-NuySS auıe 1sı 


yang seqg 


CPU-Rem 


Liebe Leserin, Lieber Leser, 


ein zu Ende gehendes Jahr ist gewöhnlich Anlaß zu Rückblicken, Bilanzen, Rechtfertigungen und Erfolgs- 
beteuerungen. Ungewöhnlich, wie Sie Ihre CPU kennen, sparen wir uns dergleichen und haben statt dessen 
viel Neues für Sie bereit. 

Schon das Attribut ”neu” auf dem Titel der vorliegenden Dezember-Ausgabe ist nicht etwa ein Ausrutscher 
des Layouts, sondern ein deutlicher Hinweis darauf, daß sich zur Zeit einiges bei uns tut. 


Viele unter Ihnen haben uns in den letzten Monaten geschrieben und gebeten, doch mehr. für die Anwender” 
unter den Heim- und Personalcomputer-Besitzern zu bieten: mehr Programmierhilfen, Anwenderpro- 
gramme, Hard- und Software-Informationen - nicht mehr so viele Spiele, die man ja in anderen führenden 
Magazinen, z.B. HOMECOMPUTER, findet. 

Wir haben daher über ein neues Konzept nachgedacht und auch eines gefunden, das wir nach und nach ver- 


wirklichen wollen. 


Lassen Sie mich daher kurz auf die Rubriken der "neuen CPU” eingehen... 


GPU-Report 
bringt Ihnen interessante Berichte zu Themen, die von Computerfans 
und engagierten Anwendern jeweils diskutiert werden. 


CPU-Toolkit 
bietet echte "Workshop”-Atmosphäre: Tips & Tricks, nützliche Routi- 
nen, Einbau- und Bastelvorschläge, knifflige Fragen von Lesern an die 
Redaktion u.v.m. 


GPU-Pocket 
bezieht endlich auch die vielen Besitzer von Taschencomputern mit ein, 
bringt wichtige Informationen, Spezial-Infos, Trends und Hardware- 
Tests. 


GPU-Utility 


faßt sämtliche ”applications”, also Anwenderlistings zusammen: hier 
finden Sie für die gängigen Heim-, Hobby- und Taschencomputer in- 
teressante Software, die bei der Bewältigung vieler Probleme des 
Alltags helfen kann. 


CPU-Game-Hunter 
stellt in Zukunft Monat für Monat ein besonders schönes Spielpro- 
gramm vor, mit anspruchsvoller Graphik, professionellem Sound und 
vielen Maschinensprache-Elementen — manche sogar 100%ig MC 
(in der vorliegenden Ausgabe haben wir in der Rubrik Game-Hunter 
noch mehrere Spiele-Listings, um einen fließenden Übergang ins neue 
Konzept zu gewährleisten). 


CPU-Markt 
sichtet die Fülle von Informationen, die Tag für Tag in Sachen "Neu- 
heiten” auf die Schreibtische der Redaktion flattern. Dadurch ist sicher- 
gestellt, daß Sie jederzeit mitreden können, wenn brandheiße Geräte 
und Programme zur Sprache gebracht werden. 


GPU-Podium 


bietet Ihnen Gelegenheit zur Stellungnahme, auch zur Kritik, die, wie 
Sie wissen, beim CPU-Team schon immer offene Ohren fand. 


GPU-Wörterbuch 


wurde von unseren Fans von Anfang an so positiv aufgenommen, daß 
wir uns entschlossen, es unverändert als Rubrik zu übernehmen. 


GPU-Bibliothek 


Auch sie wurde übernommen, allerdings sogar noch ein wenig ausge- 
baut, weil sich gezeigt hat, daß einfach zuviel wichtige Literatur auf 
dem Markt erscheint, die wert ist, vorgestellt zu werden. 


GPU-Test 


stellt allmonatlich ein Gerät innerhalb eines meist mehrseitigen Be- 
richtes vor, mit all seinen Fehlern, aber auch mit allen positiven 
Leistungsmerkmalen. 


GPU-Kurs 


Redakteur Horst Franke wird in den ersten Monaten des neuen Jahres 
noch für viel Informationen in Sachen Spectrum-Assembler sorgen. 
Doch auch danach wird erneut eine Serie beginnen, die in Form eines 
fundierten Fachlehrganges ohne Fach-Chinesisch eine ganze Menge 
Wissen für Einsteiger wie ernsthafte Aufsteiger parat haben wird. 


GPU-Happy 
istebenfalls neu und beweist, daß auch in der neuen CPU der Spaß nicht 
zu kurz kommen soll. Mal Rätsel, mal Suchspiel, mal ein gezeichneter 
Witz - CPU-Happy wird für Abwechslung sorgen: und jedes Mal ein 
Preisausschreiben beinhalten, mit dem Sie noch günstiger als ge- 
wöhnlich, nämlich zum Nulltarif, an attraktive Bänder aus unserem 
Kassetten-Service kommen können. 


Dieses neue Konzept wird durch eine anders gestaltete Titelseite optisch unterstrichen. Sie macht somit auch 
deutlich, daß es mit der "neuen CPU” schwungvoll in ein spannendes neues Computerjahr geht. 
In diesem Sinn ein herzliches Dankeschön an alle CPU-Leser für die Treue im vergangenen Jahr, ein frohes 


Weihnachtsfest und ein erfolgreiches 1985 


Ihr 
Stefan Kaus 
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Neue Farbkarte für Apple 


Supercolor-Karte SCC 2000/RGB und SCC 2000/Video 


Die Supercolor-Karte SCC 
2000. eine reine Schweizer- 
Entwicklung und -Produk- 
tion. wurde von einem 
Fernsehtechniker ent- 
wickelt. der dabei keinerlei 
Kompromisse machte. Dies 
zeigtsich schon an derrelativ 
großen Anzahl von IC’s und 
anderen Bauteilen. Ziel der 
Entwicklung war es. eine 
Farbkarte auf den Markt zu 
bringen, welche keine Wün- 
sche mehr offen läßt in Be- 
zug auf Farbqualität. Bril- 
lanz und Anschlußmög- 
lichkeiten für die verschie- 
densten Monitore. 

Um dies zu realisieren. 
wurde ein ganz neuer Weg be- 
schritten. indem die vorhan- 
denen Signale am Slot des 
Apple nicht einfach ein we- 
nig umgewandelt werden. 
wie bei anderen Farbkarten. 
Es ist klar. daß für ein ein- 
wandfreies Farbbild auf ei- 
nem Monitor oder Farb- 
fernsehempfänger. diesem 
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ein normgerechtes Signal zur 

Verfügung stehen muß. Das 

haben wir erreicht, indem die 

vorhandenen Signale im Ge- 
rät abgegriffen werden und 
daraus ein absolut norm- 
gerechtes PAL-Signal produ- 
ziert wird. Damit steht nun 
endlich eine Farbkarte zur 

Verfügung. welche auch ex- 

treme Ansprüche befriedigt. 

Die hervorragendsten allge- 

meinen Merkmale der SCC 

2000 sind: 

-16 brillante, klare leuch- 
tende und vor allem richtige 
Farben 

- keine falschen Farben oder 
Verschleierung bei Farb- 
übergängen 

- keine "Typischen Apple- 
Streifen” mehr im Bild 

- Text im Grafikmodus ist 
weiß und nicht "bunt" 
wie bisher 

- Schalter fürnur Grün- oder 
Schwarz-Weiß-Wiedergabe 

- Eingang und Softwitch für 
die 80-Zeichen-Karte 


Die SCC 2000 gibt esin2 Ver- 
sionen, die SCC 2000/RGB 
und die SCC 2000/Video. Die 
allerbesten Ergebnisse liefert 
natürlich die RGB-Version, in 
Bezug auf Schärfe, Brillanz 
und Auflösung in Verbin- 
dung mit einem guten RGB- 
Farbmonitor oder Farb- 
fernseher mit RGB-Eingang 
(Euro-Scart-Stecker). Die 
Video-Version bleibt, be- 
dingt durch den Videomodu- 
lator, qualitativ geringfügig 
hinter der RGB-Version zu- 
rück, kann dafür aber mit je- 
dem Farbfernsehgerät mit 
Video-Eingang (AV) benutzt 
werden. Nachstehend die 
spezifischen Informationen 
über die beiden Versionen: 


SCC 2000 Version "RGB” 

- Ausgangs-Signal 1 Volt/75 
Ohm oder RGB/TTL-Pegel 

-1 Volt-Ausgang regelbar 
von 0,5 - 1.1 Volt 

-Synchron-Signal positiv 
und negativ vorhanden 


- Separates Vertikal-Syn- 
chron-Signal mit TTL- 
Pegel 

- 16 Farben bei I Volt Norm- 
ausgang, 8 Farben beı 
TTL-Ausgang 

- HR-Grafik und 80-Zei- 
chen-Wiedergabe möglich 

- Preis: 295,- SFR 


SCC 2000 Version ” Video” 

- Normgerechtes PAL-Com- 
posite-Signal, 1 Volt/75 
Ohm 

-16 Farben 
Verfügung 

-12 Volt am Ausgangs- 
Stecker zur auto. Um- 
schaltung eines 1V 

-Die RGB- und Synch.- 
Signale sind vorhanden 
wie bei RGB (TTL) 

- Preis: 315,- SFR 

Bezug: Electronix Versand, 

Zürich-CH 


stehen zur 
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CPU-Soft 


Dieses Programm, wohl eines der besten, das Automata für den ZX-Speetrum geschrieben 
hat, ist einzigartig. Es ist eine Mischung zwischen Videofilm und einer grausamen Utopie. 
Zur Verwirklichung wurde es in eine Audio- und Programmkassette geteilt. 


Bei dem obengenannten Programm 
handelt es sich mehr um ein Hörspiel 
als um ein Actionprogramm. Alles be- 
ginnt im Jahre 1987. Die Gesundheits- 
behörde, das Sozialamt und der 
Staatssicherheitsdienst von Großbrita- 
nien werden in einem zentralen Daten- 
bankcomputer koordiniert. In dem 
darauffolgenden Jahr werden die Zoll-, 
die Kommunikations- und die 
Zensurbehörden integriert. Im Jahre 
1994 wurde dieses Datenverbundsy- 
stem für die totale Verteidigung und für 
die innere Sicherheit verantwortlich 
erklärt. 

Dienstag abends nach dem Tee und 
den vorgeschriebenen Anbetungen an 
den Computer. gibt dieser Alarm. Dies 
ist die Vorgeschichte. 


Nach dem Einladen des Programmes 
müssen ersteinmal der Spectrum und die 
Soundkassette synchronisiert werden. 
Dies ist ein einfacher Vorgang, der 
durch zwei Countdowns erleichtert 
wird. So wird zuerst die Musikkassette 
eingeladen und gestartet. Es folgt ein 
Herunterzählen. Mit den Kennwort 
"Pause" soll der Kassettenrecorder aus- 
geschaltet werden. Dann wird der 
Countdown des Spectrum gestartet. 
und bei Erreichen von OÖ wird der Kas- 
settenrecorder erneut eingeschaltet. 
Fertig ist die notwendige Anpassung. 
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Der gesprochene Text wird von Pink- 
Floyd-ähnlicher Musik begleitet. Lei- 
der benutzt DEUS EX MACHINA ein 


schwieriges Englisch. so daß es für 


Leute mit ungeübten Sprachkenntnis- 
sen unverständlich wird. Als Erleichte- 
rungist. und das sollte nicht unerwähnt 


bleiben, ein Poster beigelegt. das auf 


der Rückseite den gesamten gesproche- 
nen und gesungenen Text beinhaltet. 
Trotz einiger Verständnisschwie- 


rigkeiten gefiel mir die Musikkas- 


sette außerordentlich. Dies ist auch 
nicht weiter verwunderlich. denn 
AUTOMATA war vor seinem Einstieg 
in die Computerwelt in der Musik- 
branche vertreten. 


Für Actionbedürftige sind in dem 
Spiel auch Routinen eingebaut. um den 
von der Maschine erzeugten Menschen 
helfen zu können. z.B. um Strahlen 
oder ähnliche Unannehmlichkeiten 
abzuwehren. 
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Die Grafik des Programms: 
Hierbei handelt es sich sowohl um 
schnelle, bewegte Bilder, als auch um eine 
hervorragende Einzelpunktgrafik. mit 
der z.B. die 6 Akteure (John Pertwee, 
Donna Bailey. Ian Dury. Mel Creücher, 
Frankie Howert und Edward 
Thompsom) in Portraitform vorgestellt 
werden. Auch dieses schwierige Unterfan- 
gen läßt AUTOMATA nicht ohne 
Gags: Einer zwinkert mitdem Auge, ein 
anderer runzelt die Stirn usw. Und 
selbst das läuft in einer Realzeit ab. die 
man dem ZX-Spectrum nicht zutraut. 


Dauer des Videos: 

Als Zeitaufwand für einen vollen 
Durchgang sollten Sie mindestens 
eine Stunde planen, da alleine die 
Spielzeit 50 Minuten beträgt. Dazu 
kommen dann noch zweimal die Einla- 
dezeiten von sehr umfangreichen Pro- 
grammteilen und der Zeitbedarf für 
die Synchronisation. 

Gesamturteil: 

Das Programm zeichnet sich durch 
hervorragende Grafik und einer ganz 
neuen Idee der Computeranwendung 
aus. Auch die mitgelieferte Musikkas- 
sette ist meiner Meinung nach nicht 
mehr mit den "free Hit Songs” von PI- 
MANIA. UNCLE CROUCHO usw. zu 
vergleichen: Die Aufnahmequalität und 
die musikalischen Inhalte sind so verbes- 
sert worden, daß es durchaus als gute 
Musik bezeichnet werden kann. Der 
genaue Preis stand leider bis zum Re- 


ef, 
‚M 


nicht fest: er 


daktionssschluß noch 
dürfte bei etwa 16.- £ bzw. 60,- DM liegen 
und wird in Englandvon AUTOMATA 
vertrieben. 


Noch eine Randbemerkung: 

Die Erstellung eines Programmes, wie 
DEUS EX MACHINA, ist wieder ein 
Beweis dafür, daß noch längst nichtalle 
Möglichkeiten der Einsatzfähigkeit von 
Computern, gefunden sind. Hätte vor 20 
Jahren jemand behauptet, daß er mitei- 


nem so "kleinen” Gerät, wie der ZX- 
Spectrum es ist, einen 50 Minuten langen 
Farbfilm erstellen kann, so hätte ihm 
wohl niemand geglaubt. Heute schon 
halten einige den Computer fürein Wun- 
dergerät, mit dem man alles machen 
kann. Es bleibt abzuwarten, ob die Stei- 
gerung der Leistungsfähigkeit auf klein- 
stem Raum, weiter mit der gleichen Ge- 
schwindigkeit wächst, wie dies in den 
letzten 20 Jahren der Fall war. 


(hf) 


Der Bestseller--Homecomputer 
Spectrum hat eine professio- 
nelle schreibmaschinenähn- 
liche Tastatur erhalten. Der 
neue Sinclair ZX-Spectrum 
ist mit der bereits existieren- 
den Software und sämtlichen 
Spectrum-Peripherie-Gerä- 

ten voll kompatibel. Der 48K 
Computer besitzt auch die 


technischen Merkmale. die 
maßgeblich zum Erfolg des 
Spectrum beigetragen ha- 
ben. darunter hochauf- 
lösende Grafikfunktionen 
mit acht Farben. einen zehn 
Oktaven umfassenden Ton- 
generator und den größten 
Arbeitsspeicher aller Com- 
puter der unteren Preis- 


klasse. 

Die Kunststofftastatur hat 
zusätzlich eine Leertaste so- 
wie 17 weitere Tasten. Damit 
lassen sich verschiedene 
Funktionen mit nur einem 
einzigen Tastendruck aus- 
führen. Die Tastatur kann 
durch Abnahme der Füße an 
der Unterseite geneigt wer- 


den. Mit der Reset-Taste läßt 
sich der Arbeitsspeicher lö- 
schen. ohne daß die Strom- 
versorgung abgeschaltet wer- 
den muß. 

Spectrum+ ist ab Dezember 
1984 für rund 650.- DM auf 
dem deutschen Markt erhält- 


lich. 
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Westliche Elektronik als Exportschlager 


Der Ostblock kämpft mit allen Mitteln um Computer know-how 


Im Juni bereits hat der amerikanische Kongreß beschlossen, die Ausfuhrkontrollen für zu- 
kunftsorientierte Technologien erheblich zu verschärfen. In einem Bericht, der den Abgeordneten zuge- 
stellt worden war, hieß es: ”Wir sehen die Verringerung der technologischen Lücke zwischen Ost und 
West mit viel Besorgnis, vor allem im militärischen Bereich, in dem die sowjetische Stärke eindeutig durch 
die Aufnahme von westlichen Know-how verbessert wird. (... )” 


Anfang Oktober nun er- 
schien im Heyne-Verlag 
(München) ein Buch des re- 
nommierten Fachjournali- 
sten Jay Tuck mit dem Titel 
”Die Computerspione - der 
heimliche Handel mit NATO- 
Technologie”. Die Exem- 
plare der Erstausgabe waren 
in vielen Buchhandlungen 
bereits Tage nach der Anlie- 
ferung vergriffen, was für die 
Brisanz des Themas ebenso 
wie für das Interesse der Of- 
fentlichkeit am Stichwort 
"Technologie-Transfer” 
spricht. 

Und in der Tat hält die 
Aktualität, was der schmale, 
aber sehr stoffreiche Band 
(siehe hierzu auch unsere 
CPU-Bibliothek) verspricht: 
wird doch gerade parallel zur 
Veröffentlichung des Buches 
von Jay Tuck eine Elektro- 
niksendung vom bundes- 
deutschen Zoll beschlag- 
nahmt, die hochkarätige 
Mikro-Bauteile enthielt und 
schnurstracks Richtung Mos- 
kau unterwegs war. 

Auch in Westeuropa ärgert 
man sich darüber, daß die 
Sowjets schon so lange den 
nicht zu unterschätzenden 
Komfort genießen, als Tritt- 
brettfahrer westlichen Erfin- 
derfleißes die Früchte viel- 
fältiger Forscherarbeit mir- 
nichtsdirnichts ernten zu 
können. 

Dabei arbeitet die fortschrei- 
tende Miniaturisierung 


der Bauteile den Belangen, 


der Computerfreaks an der 
Wolga natürlich kräftig zu: 
waren in früheren Zeiten er- 
hebliche Wagnisse einzu- 
gehen, um an streng geheime 
Fertigungspläne zu gelangen 
und diese dann auf zahlrei- 
chen Schleichwegen nach 
Hause zu lotsen, kann man 
heutzutage gemütlich zum 
Shopping nach Kalifornien 
jetten. 

Scheinbar funktioniert die- 
ser Wissensaustausch so vor- 
züglich, daß man mittler- 
weile in der Sowjetunion da- 
von spricht, sich die Druck- 
kosten für Manuals der eige- 
nen Ryad-Computerserie 
dadurch sparen zu können, 
daß man sich IBM-Handbü- 
cher zulegt. 

Nachstehend finden Sie ein 
Interview mit Erfolgsautor 
Tuck, in dem dieser zur ge- 
samten Problematik und 
dem Thema Technologie- 
Transfer Stellung nimmt: 
(Jay Tuck ist Autor von "Die 
Computerspione - Der heim- 
liche Handel mit NATO- 
Technologie”, Heyne Ver- 
lag. München.) 


Frage: In diesem Buch schil- 
dern Sie mysteriöse Mitter- 
nachtstreffs auf dem Wiener 
Flughafen, die Entdeckung 
einer vereisten Leiche in den 
französischen Alpen und die 
rasante Fahrt von US-Fahn- 
dern durch den Hamburger 


Hafen. Auf weiten Strecken 
liest sich das wie ein Polit- 
Thriller. Warum der unge- 
wöhnliche Stil? 


Tuck: Die Geschichte der 
sowjetischen Computerspio- 
nage ist in der Tat ein Ost- 
West-Thriller. Er spielt sich 
in unserer Mitte ab und geht 
uns alle etwas an. Im Ge- 
gensatz zu einem Roman 
handelt es sich hier jedoch 
um die authentische Darstel- 
lung von Ereignissen im Le- 
ben wirklicher Menschen. 
Ich habe die Organisation 
von acht Schieberringen im 
Detail studiert und mir große 
Mühe gemacht, möglichst 
viel von der Dramaturgie 
und Farbe des Geschehens 
einzufangen - von den betei- 
ligten Persönlichkeiten, über 
deren Ostkontakte, Schmug- 
gelrouten und Schie- 
bertricks, bis hin zu den Ge- 
gentricks der Ermittlungs- 
behörden. Der illegale Han- 
del mit strategischer Elektro- 
nik wird von westlichen Ab- 
wehrbehörden inzwischen 
als "Spionage-Thema des 
Jahrzehnts” eingestuft. 


Frage: Wer sind diese 
”Computerspione”? 


Tuck: In einem Fall handelt 
es sich um einen chinesi- 
schen Bankier, der von Hong 
Kong in die US-Elektronik- 
hochburg Silicon Valley rei- 


ste, um kalifornische Banken 
im Auftrag des Geheimdien- 
stes KGB einzukaufen. In ei- 
nem anderen Fall investierte 
ein deutscher Mehrfachmil- 
lionär in das Heimorgelge- 
schäft. Ersuchte aber nurein 
Tarnunternehmen für seine 
dubiosen Computerge- 
schäfte, und wurde am Ende 
von Agenten des Bundes- 
nachrichtendienstes. des bri- 
tischen MI-6 und der ameri- 
kanischen CIA rund um den 
Globus gejagt. Teilweise ver- 
fügen die westlichen Ge- 
schäftsmänner, die mit Em- 
bargoware handeln. über ge- 
heimdienstliche Kontakte. 
Häufig wurden sie unwis- 
sentlich in die Beschaffungs- 
pläne von Sowjetspionen 
eingespannt. 

Ein eigenbrötlerischer Erfin- 
der aus Kalifornien namens 
Walter Spawr ist ein klassi- 
sches Beispiel. In seiner 
Garage entwickelte Spawr 
ein neuartiges Verfahren zur 
Glaspolitur, das später zum 
Schlüssel der neuen Laser- 
waffen-Technologien für 
den Weltraum wurde. Als- 
bald kauften auch die größ- 
ten Rüstungskonzerne Ame- 
rikas bei ihm ein. Politisch 
war Spawrein Anhänger von 
Ronald Reagan. Er hielt sich 
für einen rechtschaffenen 
Staatsbürger. Alserjedoch in 
finanzielle Bedrängnis ge- 
riet, konnte er in ein Ost- 
West-Geschäft gelockt wer- 
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Schnelles Suchen nach 


Zeichenketten für ATARI-Basic 


ATARI-Basic bietet leider keine Funktion, die ein schnelles Auffinden einer Teilzeichenkette in einer 
Zeichenkette ermöglicht. Zwar kann man die Suche mit einem Basicprogramm realisiern; aber wenn 
lange Zeichenketten durchsucht werden müssen, kann man durchaus erst einmal Kaffee trinken gehen - 
bis der Rechner zu weiterer Arbeit bereit ist. Abhilfe schafft da eine kleine. Maschinensprache- 


Routine. 


Die hier vorgestellte FIND-Funktion 
ist zwar speziell für ATARI-Basic ge- 
schrieben, kann aber mit entsprechen- 
der Änderung der Parameterübergabe 
und der Zeropage-Adresse auch aufan- 
deren 6502-Systemen benutzt werden 
(siehe Assembler-Quellcode). Die 
Routine ist außerdem verschiebbar, 
d.h. sie kann in irgendeinen Speicher- 
bereich geladen werden, der minde- 
stens 146 Bytes groß ist. Aus diesem 
Grund. und da ATARI-Basic Zeichen- 
ketten von einer Länge erlaubt sind, die 
nur von der Größe des verfügbaren Ar- 
beitsspeicher begrenzt sind, kann man 
Maschinenprogramme- in einer sol- 
chen Zeichenkette ablegen. Das hat 
den Vorteil, daß man nicht durch Ver- 
ändern von Systemzeigern (z.B. 


Herabsetzen des Basic-Top of Memory ' 


Pionter) Speicherplatz reservieren 
und vor Überschreiben von Basic schüt- 
zen muß. 

Reservierung und Schutz übernimmt 
in diesem Fallein einziger DIMension- 
Befehl! Auch geschieht das Laden des 
Maschinenprogrammes durch Zeichen- 
ketten-Zuweisungen wesentlich schnel- 
ler als durch READs und POKESs - wo- 
dureh der Initialisierungscode des Ma- 
schinenprogrammes weniger Speicher- 
platz benötigt. 

Um die FIND-Funktion in eigenen 
Programmen zu benutzen, braucht 
man nur die Zeilen 25000 bis 25002 aus 
dem Basic-Listing FINDTEST einzu- 
geben und, damit sie nicht jedesmal 
neu eingegeben werden müssen, mit 
LIST auf Kassette oder Disk abzu- 
speichern (so kann man sie mit ENTER 
bequem in andere Programme einbin- 
den). Falls es bei der Eingabe der 
Zeichen Schwierigkeiten geben sollte - 
nehmen Sie die Tabelle mit den ASCII- 
Codes zur Hilfe. Selbstverständlich 
muß der Initialisierungscode vor dem 
ersten Aufrufder Funktion einmal aus- 
geführt werden. 

Der Aufruf der FIND-Funktion sieht 
folgendermaßen aus: 


5 REM FINDTEST 
18 GOSUB 25088:REM FIND initialisieren 


188 
185 
118 
128 
1380 
148 
158 
168 
178 
188 
198 


DIM PUFS(18808) ,‚RECS (168) ,BL$ScC98> 
BLSCLI=Z" ":BLSCIHOI-" ";BLSCZI-BLS 
REM Datenpuffer mit Datensaetzen 
REM fuellen 

FOR I=1 TO 99 

RECS="DATENSATZ NUMMER: 
RECSCLENCRECSI+LI=STRS CHI 
RECSCLENCRECSI +1, 188) =BLS 
PUFSCI®1808-99, I#1883=-RECS 

NEHT I 

RECS (18,45) ="188-GESUCHTER DATENSA 


rzı“" 


288 
228 
238 
248 
258 
255 
268 
270 
288 


PUFScC9981,180088083 -ZRECS 
REM Datensatz Nr.1808 
REM suchen. 

REM Algorithmus fuer 
REM gleicher Laenge! 
? "RECORDSUCHE: "7 
GOSUB Z888:REM Zeitnahme 

FOR I=1 TO 188 

IF PUF$SCI#=188-99,I#188) =RECS THEN 


in Basic 


Datensaetze 


INDEHX=I*188-99:G0TO ZI88 


290 
308 


NEHT I:INDEHXH=® 
GOSUB Z888:REM Zeit stoppen und Au 


sgabe 


3ı8 
315 
328 
338 


REM FIND in Basic. 

? "FIND in Basic: "; 

GOSUB 2888 

INDEX=1:SUBLEN=LEN CRECSI —-1:5STRMAH= 


LEN <PUFS)I -SUBLEN 


348 
HEN 
358 


IF PUFSCINDEX, INDEH+SUBLEN)=-RECS T 
378 
IF INDEH(STRMAH THEN INDEH=INDEH+1 


:GOTO 348 


368 
378 
388 
398 
400 
418 


INDEH=® 

GOSUB ZI008 

REM 

? “FIND in M5: "; 

GOSUB 2888 

INDEH-USRCADRLCFINDSI, ADRLPUFS> ,LEN 


<PUF$SI ,ADRCRECSI , LENCRECSIYI 


428 
438 


GOS5UB Z088 
END 5 


2888 POKE 19,8:POKE 28,8:RETURN 

3888 JIFF=PEEK (283 +256#PEEK (19) 

3818 MIN=Z-INTLCJIFF/30883 :SEK=CJIFF-Z888 
#MINI/SO 

3828 ? MIN;":";SEK:? "INDEH=";INDEXH:? 
PUFSCINDEX , INDEH+39)3 
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[of „49 I g.1.] | mm JZz ww; 


INDEX=USR(ADR(FIND$),ADR Z838 RETURN 

(HAUPT$),LEN(HAUPT$),ADR 258088 DIM FINDS (146) 

(SUB$), LEN(SUBS$)) 25881 FINDS (13 ="HNH“TRISEZISE AT EFZA TI 
PORBANS TZ4 241 U C9 EST /TIHOTpzDzp Hp ur] 

Die USR-Funktion, mitdervon Basicein | NEREITEWIEESITEETN: EIIERES" 


Maschinenprogramm aufgerufen wird, | 25882 FINDS «832 En u/_ehpin/u | bH7E2 27V] 
benötigt als ersten Parameter immer die | SEEIJA rER TELEITEZZRESTTITTTTT ONSEZAETHEAN 
Adresse des auszuführenden Maschinen- | EBEIBe"" 

programmes. Da sich FIND in einem |250e3 RETURN 

String (FIND$) befindet, und die 

Adresse desselben durch die ADR- ASCII-Codes FIND: 


Adresse im Speicher gesucht werden soll. 
Dabei muß essich nichtimmerunbedingt se a we ae En = ah a 
umeineZeichenkette handeln,eskann | ,.123 S3:196 901232 127: Ai 
auch irgendein Speicherbereich nach | 7, IE S al Fe 1983 224 
Bytes durchsucht werden. Der 3. Para- de 4 r 3 


(Adresse von)-Funktion auch kein Ge- | 1:104 38:219 75:213 112:209 

heimnis bleibt, braucht man sich bei die- | 2:162 392133 75:96 113:222 

ser Technik zurVerwendungvonMaschi- | 3:7 40:219 77:132 114:208 ! 
nenprogrammeninBasicumSpeicher- | 4:14 41:164 78:222 115:181 ! 
reservierung und -verwaltung keinerlei | 3:149 42:212 79:200 116:206 

Gedanken mehr zu machen. Ist der | 6:214 43:162 80:132 117:208 h 
String einmal mit dem Code initialisiert, | 7:262 44:6 81:212 118:243 N 
wird immer die richtige Adresse gefun- | 8:16 45:154 82:166 119:230 | 
den, egal wo Basic den Stringgeradeim | 9:25 46:212  83:215 120225 } 
Speicher abgelegt Hat. 10:216 47: 161 84:134 121:230 | 
Der 2. Parameter (ADR(HAUPTS)) teilt | 1! Sen a E a = ve ei | 
der FIND-Funktion mit, ab welcher eh 591212 87:0 1993226 | 


meter bestimmt die Anzahl der zu durch- Re Su u Er ee Er 
suchenden Bytes, im Beispiel ist das die 204229 57: 200 131:48 


Länge der Hauptzeichenkette. 21:215 . SB:2068 951132 1321233 
Parameter 4 und 5 definieren die zu | -. wor 2 Fake 
S 22e133 59:245 96:226 133:56 
suchende Zeichenkette (Bytefolge): Ihr RS = F " 
2 5 A 233219 60:23 97,200 134:165 
Adresse im Speicher und ihren Umfang. | 4.5 ae E Re, 

R $ er 24:24 61:213 98:165 1353212 
Dieser darf nicht größer als derzu durch- | 78, 145 62:208 99216 136: 229 
suchende sein, da sonstein falsches Erge- | 24: 220 63: 241 100:133 ° 137:220 
nis ermittelt wird. . |27:133 64:166 101:224 138:133 
Beim Aufruf müssen immer alle vier | 28: 212 65:213 102:165 139: 212 
Parameter übergeben werden, dadieAn- | 29: 101 661228 103:217  140:165 
zahl dieser von FIND nicht überprüft | za: 18 67:219 104:133 141:213 
wird. Fehlt ein Parameter, dann verläuft | 31.133 68:48 105:225 1421229 
sich die 6502 und kann nur durch ein | 32: 218 69:243 106:196 143:221 
RESET wieder zu vernünftiger Arbeit be- 70:169 107:214  144:133 
wegt werden. Das liegt an der Art, wie 71:0 108:240 145:213 
ATARI-Basic durch die USR-Funktion 723133 109:17 146:96 
ein Maschinenprogramm aufruft und die 73.212 110:177 
Parameter übergibt. Als erstes wird die | 37:161 74,133 111:224 
Adresse des Unterprogrammes in den h 
Adressen 212, 213 (lo, hi) gespeichert. v106 pe Br, fuer ATARI-Basic 
Danach wird die Adresse, in der es nach Re ENER ZEOLDEN- 

“ Bi ß ;Farameter 
Ausführung’der Routine im Basicpro- 


N sein: l.Adresse der zu durchsuchenden Zeichenkette 
gramm weitergehen soll, auf.den Stack 2.Laenge dieser Zeichenkette 


(Stapel) der 6502 gebracht. Darauf fol- | ©1506 ; 3.Adresse der gesuchten Zeichenkette 
gen die Parameter als 2-Byte-Integer- | ©1°© : 4.Laenge der selben i 
werte (lo, hi) und als letztes die Anzahl 6176 saus: Index der gesuchten Zeichenkette in 


Br “180 5 zu durchsuchender Zeichenkette. 
derübergebenen Parameter(1 Byte)eben- | „19% ; 


falls auf dem Stack. Schließlich wird | 0206 
ein indirekter Sprung zu derin212,213 | #210 ;Basic-Aufruf: 

abgelegten Adresse, also zum Maschinen- 5; INDEX=USR (adrF IND, ad HAUPT$, LenHAUPTS, adrSUBS, LenSUBs) 
programm, ausgeführt. Nun muß dieses | „>46 Bee rnteten 

die Einträge bis zur Rücksprungadresse | gosa ; 
wieder vom Stack entfernen. Damanvon | 0256 InDEx 
einem Stapel als erstes wieder das entfer- | 0276 SUBLEN 
nenkann,was man zuletztabgelegthat, | 923% SUBADR 
stehtdem Maschinenprogramm als erstes = nn 
die Anzahl der tatsächlich übergebenen | ; 


STRFTR 
Parameter zur Verfügung und kann über- SUBFTR 


; Wenn nicht gefunden: Index=ö 


&D4 :Startadr. Substring in Strina 
+Da ;Laenge Substring 

$D8 ;Startadr. Substrina 

DA sLaenge String 

DC ;Startadr. String v 
%DE sZeiger in String 

$EÖ iZeiger in Substring 


vununmah 
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prüft. werden. Bei der FIND-Funktion | dies dreimal. 3 des Machinenprogrammes. Wenn Sie 
wurde darauf verzichtet, da diese ohne | a) Sequentielle Suche mit Vergleich das Programm laufen lassen - Geduld, 
die vier Parameter sowieso nichts anfan- | von ganzen Datensätzen. Dies erledigt- Geduld... und schließlich 

gen kann. Das die Anzahl beinhaltende | Basic noch in wenigen Sekunden, ist c) Die Suche durch das Machinenpro- 
Byte wird von der USR-Funktion immer | aber nur begrenzt einsetzbar. gramm. Die gestoppte Zeitsagtwohl ge- 
auf den Stack gebracht und muß wieder | b) Sequentielle byteweise Suche in nugaus!? 

entfernt werden, ob Parameter übergeben | Basic nach dem gleichen Algorithmus 

wurdenoodernicht! DannfolgendiePara- | a339 gmmt : = 8E2.. jZahler fuer Vergleich 

meter, und zwar als erstes das HI-Byte, | g540 ; : 

dann das LO-Byte. Als letztes stehtnoch | 350 «= sırao snur fuer Assembler Routine ist verschiebbar 

die 2-Byte-Rücksprungadresse zum 0366 ;Parameter von Stack in ZP-Register. 


nächsten Basic-Befehl auf dem Stack. | 27% Fra #Anzahl Argumente von Basic 
x BR © | 8336 Lox #7 
Wird das Maschinenprogramm nun mit | 399 pArLoop 1050 LDY #6 
einem RTS-Befehl (Return from Sub- | 4966 PpLa 1660 STY COUNT 
routine) beendet, dann lädt die6502ih- | 416 sSTA SUBLEN.X I een ER, 
ren Programmzähler mit den zwei ober- | #426 DEX x : Fa UNSErAng sm, Zeigen 
5 0436 BPL PARLOOP 1096 LDA SUBADR 


sten Bytes des Stacks und führt dort ihr 


1166 _STA SUBPTR 


R 7 0440 ;Adresse des Zeichens mit gqroesst 

Programm fort, in dem Fallden nächsten | 4456 smocalichen Inaoı ehren € 1110 LDA SUBADR+L 

> E 5 6 2: ; alichem Index errechnen. 1126 STA SUB 
Basic-Befehl. Wie zu sehen ist, wird die. | 9456 Index initialisieren. SUBPTR+1 - 
6502 durch falsche Parameterüber- | 6476 cıo 1156. FZLOOP 
nahme vom Basic-Hauptprogramm un- | 480 SEC ;Stringlaenge-Substringlaenge | 

. . Fi . rn fi a4 A ; 1-1 . 
weigerlich in die Wüste geschickt. Trotz Es IR A $LO-Bytaz 
dieser einfachen und bequemen Möglich- 0510 STA STRMAX 
keit, ein Maschinenprogramm von Basic | 4526 LDA STRMAX+1 IHI-Bytes. 
aus zu steuern, heißt es also aufpassen! 0536 SBC SUBLEN+L 
Ebenso einfach kann an Basic ein | 8540 sTA STRMAX+1 

n R N a550 A i 

Funktionswert wieder zurückgegeben | 255% cLc ;+Stringadresse 


2566 LDA STRADR 1146 CPY SUBLEN sAlle Zeichen verglichen? 


werden- schließlich möchte mat ja wis: |"aayo ‚sra inner 1196 EEG: rernen jeventuell. -> 

sen. ob die FIND-Funktion etwas gefun- | 4586 ADC STRMAX 1160 CONTF2 

den hat und wenn, dann wö? Deshalbbe- | 9590 sTa STRMAx 1176 LDA (SUBPTR),Y jnein, Zeichen veraleichen 
steht ein Maschinenprogrammaufrufim- | 9666 LDA STRADR+1 1186 CMP (STRPTR),Y 


mer aus der USR-Funktion und einer 6610 ‚STA INDEX+1 1196 BNE FINDI ungleich, ab -Index wieter 1.Zeichen suchen 
Zuweisung: 6626 ADC STRMAX+1 12040  INY saleich -> naechstes Zeichen 
& 0636 STA STRMAX+1 1216 BNE F2LOOP sVeberlauf Y-Register: 
6546 51. Zeichen suchen. h 
VARIABLE=USK....). 8650 FINDI 1226 INC SUEPTR+1  ;HI-Bytes Zeiger 
8656 LDY. INDEX 1236 INC STRPTR+1 zund Zaehler 
Den Wera Basic mitteil 6670 LDX #0 1240 INC COUNT ;erhoehen. 
en Wert, den man Basic mitteilen 12506 BNE F2LOOP 


s RT 0686 STX INDEX 
möchte. muß man nur in die schon be- | 5.55 LDA (SUBADR.X) $1.Zeichen aus Substring 


kannten Adressen 212, 213 (lo, hi) vor | 476 FiLODP 
Rückkehr aus dem Maschinenpro- | @716 -cHP tINDEX.Y Fin String? 
gramm ablegen. Basicnimmtdanndie- | 6724 BEO CoNPARE $ia, Rest vergleichen 


sen 2-Byte-Integerwert und weist ihn CPY STRMAX inein, Ende erreicht? 
der Variablen zu. nn Ba seventuell -> 

Der Wert, der von der FIND-Funktion Fi INY Se ere ziehen 
übergeben wird, gibt die Startfunktion | #776 ne FıLoor 5Ueberlauf Y-Register: 
der gefundenen Zeichenkette in der | #736 Inc INDEX+1 ;HI-Byte erhoehen 
durchsuchten an, kann also direkt zur | 2790 BNE FiLoor 

weiteren String-Manupulation in | ©5860 TSTHII 


e Be 6816 .LDX INDEX+1 sHI-Byte auch gleich? 
Basic verwendet werden. Benötigt man | gg24 cex STRMAX+L 2 


die absolute Adresse der gefundenen | 83% zn CoNTFı znein, weitersuchen. 

Byte-Folge, so läßt sich diese durch 6846 ;Substring nicht gefunden: 1250 TSTHI2 
0856 ; INDEX = & 1276 LDX COUNT ;Zaehler kleiner 

INDEX+ADR(HAUPTS)-1 6860 LDA #0 - 1286 CPX SUBLEN+I - sLaenge Substring? 
6870  STA INDEX 1296 EMI CONTF2 sia, weiter vergleichen. 
6886  STA INDEX+L 1360 ;sonst Substring gefunden: 


nn ie ücherertalgloe | ae Ts 1310 5INDEX - Adresse String = Basic-Index. 
dann erhält INDEX den Wert Null. 6964 srestliche Zeichen vergleichen 

Nun noch ein paar Worte zum Pro- | 716 CONFARE 

gramm FINDTEST. Um den Geschwin- 5926 Adresse des Zeichens fuer Vergleich in Zeiger kopieren. 


5 5 e 5 3936 STY STRFTR ;Adresse (LO) 
digkeitsvorteil von Maschinenpro- | y9au INY. Ebene HeLterechen 
grammen zu demonstrieren, soll eine | 6555 stv ınoex ;falls ungleich Substring. 1326 FOUND 
größere Menge von Bytes nach einer | 6766 Lox InDEx+1 sAdresse {HI in Zeiger 1339 SEC 
bestimmten Zeichenfolge durchsucht 0970. ST STRETR+ R as LDA INDEX 
5 ird ei D ivon 100 Gr80 CRY #6 ;HI-Byte Index ebenfalls erhoehen? 350  SBC STRADR 
werden. Dazu wird eine Datei v 3950 BNE FINDZ inein, => 1360 STA INDEX 


Datensätzen mit fester Länge (100 | 1655 1376 LDA INDEX+L 
Bytes) erzeugt, in der der letzte Da- | ısıu sTx Index+ı 1390 SBC STRADR+1 
tensatz gesucht werden soll. Wie dem j\ ;Veragleichszaehler auf 1 setzen 1396 STA INDEX+1 


Listing zu entnehmen ist, geschieht 5 (HI-BytesEDUNT, LD-Byte: Y-Register) 1490 RTS 
a FIND2 1416 .END 
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machen läßt. i 


Mit der String-Funktion (CHR$) wird 
dasjenige Zeichen erzeugt, das dem an- 
gegebenen ASCII-Code entspricht. Sage 
ich zum Beispiel: 


x=65 
PRINT CHR$(X) 


so wird mit größter Wahrscheinlichkeit 
ein”A” ausgegeben, weilder(dezimale) 
ASCII-Code für ”A” der Wert 65 ist, 
Geben Sie nun mal in Ihren TI-99 das 
folgende ein: 


10 X=8:Y=7:Z=15 
20 PRINT CHR$(X+Y+Z) i 
Was erscheint auf dem Bildschirm? 


Richtig, der Cursor, weil der dezimale 
ASCII-Code für dieses Sonderzeichen 
die 30 ist- und die Zahlen 8,7 und 15 er- 
geben zusammen eine 30. 

Wir sehen also, daß in der Klammer 
nach dem CHRS$ nicht unbedingt ein 
einzelner Wert, sondern ruhig auch 
eine Rechenanweisung stehen kann, 
die zunächst ausgeführt wird, bevor Ihr 
Ergebnis an den ASCII-Code ”über- 
wiesen” wird. 

Nun ist es beileibe nicht so, daß stets 
”Zeichen” angezeigt werden, wenn man 
die CHR$-Funktion anwendet: 

Geben Sie einmal dazu das folgende 
Miniprogramm ein, das Ihnen, wenn 
Sie alles richtig gemacht haben, die 
”Zeichen” des ASCII-Codes, sowie ihre 
dezimale Verschlüsselung angibt. 


10 CALL KEY (0,T,ST) 

20 IF ST=0 THEN 10 

30 CODE=ASC(A$) 

40 PRINT ”ASCII-Zeichen”, ”DEZ.- 
CODE” 

50 PRINT CHR$(T),T 

60 GOTO 10 


Wenn Sie diesen Sechszeiler gestartet 
haben, werden Sie feststellen, daß nicht 
jeder Dezimalcodeein Zeichen aufden 
Bildschirm bringt. So bleibt die Spalte 
"ASCII-Zeichen” beispielsweise frei, 
wenn unter "Dez.-Code” eine 32 ange- 
zeigt wird - denn die 32 steht für 
"SPACE", also eine Leerstelle. 

Für unser kleines Programm von eben 
sind nicht alle ASCII-Codes von In- 
teresse. Da die Werte 0 bis 29 Steuer- 
zeichen für rechnerinterne Vorgänge 
sind, sind Sie für Bildschirmdarstel- 
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Charakter-String (CHR$) beim TI-99/4A 


Vielen frischgebackenen Texas-Besitzern bereiten die verschiedenen String-Funktionen einige Schwie- 
rigkeiten und werden deshalb oft gar nicht genutzt. Das ist umso trauriger, als sich eine Menge damit 


lung unergiebig. Dem gegenüber liefern 
die Werte 30 bis 127 darstellbare 
"characters” und können mit dem Ab- 
frageprogramm leicht erlernt werden. 
Das soll aber. nicht heißen, daß uns die 
Werte < 30 nichts angingen: auch un- 
ter ihnen gibt es Funktionen, die der 
Datenübertragung (beispielsweise zum 
Drucker) dienen und deshalb eine Be- 
achtung wert sind. ; 


deutsche Bedeutung 
Stornierung 

Signal 

Tabulator, horiz. 
Zeilenvorschub 
Tabulator, vert. 
Blattvorschub 
Wagenrücklauf 
Sperrschrift 
Engschrift 
Peripherie x-on 
Peripherie-Adresse 
Peripherie x-off 
Peripherie-Adresse 
Buffer löschen 
'Präfix-Zeichen 


Hier nun eine Zusammenstellung 
derjenigen Zeichen, die Sie vor allem 
als Besitzer eines Druckers benötigen 
werden. Wir erreichen sie entweder 
über unsere CHR$-Funktion oder aber 
mittels der "CONTROL"-Taste und ei- 
nes speziellen Texascodes. 

Die englischen Abkürzungen der 
linken Spalte stellen sogenannte "sym- 


"bolic codes” dar, d.h. eine Direkt- 
eingabeist bei ihnen nichtmöglich:Tip- 


pen Sie zum Beispiel BEL ein, so wird 
kein Signalpiepser ertönen. Somit kön- 
nen wir die Abkürzungen als "mnemo- 
nics” (Gedächtniskürzel) auffassen. 
Die Angabe "Präfix-Steuerzeichen” be- 
sagt, daß der ESC-Code von weiteren 
Steuerzeichen begleitet wird, diese also 
stets nur einleitet (Präfix= Vorsilbe). 
Hier nun aber noch einige Zusatzinfor- 
mationen zu einzelnen Steuerzeichen 
aus der oben stehenden Tabelle 


BEL Bell: 

Die meisten handelsüblichen Drucker 
besitzen als Signalgeber einen einge- 
bauten Summer oder Beep-Generator. 
Wird vom TI nun ein BEL gesendet, so 


schaltet sich dadurch dieser Summer 
für etwa 3 Sekunden ein. Das ist 
praktisch, um einzelne Phasen des 
protokollierten Programmablaufes zu 
kennzeichnen, sei es, daß der Drucker 
stoppt, weil der Computer ein Input be- 
nötigt, sei es, weil das Papier alle ist. 


LF Line Feed: 
Wenn dieses Zeichen übertragen wird. 


CONTROL 


CHR$(...) 
0 


RIORDS ZERO 


so prüft der Drucker, ob sich ein 
Zeichen im Datenkanal befindet. Ist 
dies der Fall, so läßt er es passieren 
und führt danach LF aus (schiebt das 
Papier um eine Zeile weiter). Ist jedoch 
kein Zeichen mehr im Bus. so wird der 
Zeilenvorschub sogleich ausgeführt. 


CR Carriage Return: 

Was der Wagenrücklauf bedeutet. muß - 
so glaube ich - nicht besonders erläutert 
werden. Da die CR-Funktion drucktech- 
nisch jedoch mehr tut, als den Druckkopf 
an den Zeilenanfang zurückzubringen, 
ist der Carriage Return für einige hüb- 
sche Spielereien brauchbar. CR bewirkt 
nämlich auch, daß alle im Buffer des 
Druckers befindlichen Zeichen aus- 
gedruckt werden. Dadurch können wir 
ohnegroßen Aufwand Fettdruck erzeu- 
gen, wenn wir den CR-Befehl, sprich: 
CHR$(13), geschickt in ein Pro- 
gramm einbauen. 


10 OPEN#1:”RS232.BA=1200.DA= 
gr 

20T$=”FETTDRUCK” 

30 PRINT#1:T$;CHR$(13);T$ 
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In Zeile 10 wird die Ausgabe zum 
Drucker geregelt (Schnittstelle ist hier- 


bei die RS-232 des TI-99. BA ist die 


Baudrate 1200 
Adresse). 

In Zeile 20 wird ein Beispielstring an- 
gegeben. der in Zeile 30 ausgedruckt 
wird. 

Der. Witz besteht in dem CHR$(13)- 
Befehl. der zwischen zwei ":” gesetzt 
wurde und so die beiden T$- 
Anforderungen nahtlos miteinander 
verbindet. 


von und DA die 


FF Form Feed: 
Stellt eine nützliche Variante des LF- 


‚Befehls dar. Der Unterschied besteht 
darin. daß nicht die nächste Zeile. son- 
dern (bei Endlospapier mit Lochrand) 
das nächste Blatt angesteuert wird. 


SO Shift Out: 

Bringt gedehnte. also Sperrschrift. auf's 
Papier. Das klappt jedoch nur. wenn 
die jeweilige Druckzeile nicht mehr 
als 40 Zeichen umfaßt. da Leerstellen 
entstehen und auf die zulässige Ge- 
samtzeilenlänge (im allgemeinen 80 Z.) 
angerechnet werden. 


SI Shift In: 
Ist das Gegenteil der oben genannten 


LEASING-CONSULT 


für den Sharp PC-1251 
in Verbindung mit Drucker-Interface CE-125 


Leasing wird in vielen Bereichen immer 
beliebter: Autos werden genauso geleast 
wie Farbfernsehgeräte, Stereo-Anlagen 
und Personalcomputer. 


Noch vor wenigen Jahren hätte Leasen, 
also mieten. für äußerst unsolide ge- 
golten: Heute arbeiten viele Großunter- 
nehmen ausschließlich auf dieser 
Basis. 

Im allgemeinen unterscheidet man 
zwei Formen des Leasing: “financial” 
und "operational”. Financial Leasing 
dient dem Erwerb einer relativ teuren 
Sache, ohne die gesamten Ersparnisse 
des Mieters auf einmal in Anspruch 
nehmen zu müssen. Dabei geht man 
von einem Restwert 0 aus - der Mieter 
wird nach der festgelegten Leasingzeit 
Eigentümer des betreffenden Gegen- 
standes, trägt aber auch während des 
Leasings alle Eventualkosten. 
Operational Leasing hat von Anfang an 
gar nicht den Erwerb der gemieteten 
Sache durch den Mieter im Sinn, son- 
dern nur die Nutzung durch ihn (klassi- 


1H:REM . LEASINS-CONSULT 
ı1:REm FÜER DEN PC-1251 
12: REM «nLT > 


24: 


25: 
8: PRINT *": 
Er} 
16:POKz 6343840, 355 73,7 
3,55,1275s 
17:FüR a=ı TO 30: NeX 


a: PRINT 
PRINT "DA 


NPUT *<INVESTITLOND 
ER 
22: INPUT "<ZINSSATZD €% 


[NERERER 


vi 


LAUFZEIT >» 
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5: INPUT 


: INPUT 


sches Beispiel: die Wohnungsmiete). 
Selbstverständlich wird hier auch ein 
Restwert nach Ende der Mietzeit ange- 
nommen. der dem Verleiher wieder zur 
Verfügung steht, 

Leasing bietet sich vor allem bei relativ 
kurzlebigen Artikeln an, um das Käu- 
ferrisiko so niedrig wie möglich zu 
halten: Beispielsweise werden heute 
Großrechenanlagen fast ausnahmslos 
geleast, damit die Firma, die den Groß- 
computer mietet, nicht nach kurzer Zeit 
dem technologischen Fortschritt hin- 
terher hinkt. 


Steht man vor der Wahl, ob'man kau- 
fen oder leasen soll, ist zu berücksichti- 
gen. wie günstig ein Kauf zu realisieren 
wäre, wie preiswert z.B: ein Bankkredit 
ist. 


Da bei derlei Überlegungen natürliche 
verschiedene Faktoren bedeutsam wer- 
den, ist ein kleines Programm wie das 
vorliegende äußerst nützlich: Nach 
Eingabe der wichtigen Daten (An- 


AnRE) 
INPUT 
"R 

INPUT 
SATZ} 


FIR 
"<RESTUERT) ? 


"<MARG.-STEUER 
? *3519=5/108 
"<TILG./JAHR> SSENEXT 2 
7-37 Mi 

"<LERS./JAHR> 


AT 130: PRINT ’<AB 
SCHREIBUNGEN? 


Y<LERS.sABbEZ 
LPRINT 


AUSE "In "323° JAHR” 
NPUT A 

ABS CP-CC INT (Pr 
eiri2)#180+.5)7100)) 
Arld#Sem= INT CMk 
186+.5)7188 


SUB 36 
2:605U3 94 
s00SUB 97 


INT C£L- 
S)9/K1+1)02)) ENDE 


YAR THEN 88 
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Funktion. nämlich ein engeres Schrift- 
bild als normal. Die Buchstaben. Zif- 
fern und übrigen Elemente des Texas- 
Zeichensatzes werden dicht gedrängt 
gedruckt. was sich zur optischen Gliede- 
rung von Texten sehr gut eignet. 


Da "Character-String-Functions” sehr 
gut auch in Basic implementiert werden 
können. erweitern sie die Mög- 
lichkeiten des TI-Basic (bzw. Extended 
Basic) ebenso sinnvoll wie enorm. Ge- 
rade in Zusammenwirkung mit einem 
angeschlossenen Drucker sind dem lei- 
stungsstarken TI-99/4A somit neue Be- 
reiche eröffnet. 


schaffungspreis, Zinssatz, Laufzeit, 
Steuersatz, Restwert usw.) trifft der PC- 
1251 die Entscheidung "Kaufen oder 
Leasen?” für Sie. Ist vielleicht schon et- 
was für den nächsten Autokauf?! 


Variablenliste: 

A: Abschreibebetrag pro Jahr 

I: Zinssatz % 

J: Laufzeit 

L: Leasingbetrag pro Jahr 

M: Mehrzweckvariable 

P: Anschaffungspreis (Investition) 
Q, Q$: Restwert nach J Jahren 

S: Marginalsteuersatz % 

T: Tilgung pro Jahr 

X: Darlehen nach Zinsabzug 

Y: Leasingbetrag nach Zinsabzug 
Z: Mehrzweckvariable 


Hinweis: 

Das vorliegende Programm läßt sich 
durch Kürzen der auf Display ausge- 
gebenen Texte leicht auf den PC- 
1245 umschreiben. 


73:603UB 95 
74:60$U8 98 
75: LPRINT Y=RS® 


36:M=(T-M)/CC1+ 1942): A= 
T (##190+.597189 


PRINT X-Y3 
90:PRINT ’<NEUER 
Er N/EY 


»05= INKEYS : IF üs=" 


mr 
LAUF 7 


& INT CR/CHHDINT 

8+.5)7188 

5 Y’aRazanan. a2” 

T "KDARL.sABGEZ 
LPRINT %3* 


F Qs="n" THEN 26 
ND r 
94: LPRINT "KAUFE 
“3 RETURN 
95:LPRINT PLEASE 
® RETURN 
S6:LPRINT "SOMIT IST’: 
RETURN 
ITHLPRINT "GLENSTIGER A 
LS": RETURN 
YS:LPRINT **: 
ESPARTEY: 


en 


LPRINT 
RETURN 
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Schneider CPC 464 


contra 
Commodore 64 


In unserer letzten Ausgabe waren die technischen Daten Grundlage unseres Vergleichs zwischen dem | 
»Neuling” CPC und dem Marktführer C-64. Heute wollen wir auf die wichtigsten Basic-Befehle beider 
Geräte eingehen. 


Funktion 
Abs 
After 
Asc 


Atn 
Auto 


Bin$ 
Border 
Call 
Cat 
chain 
Chr$ 
Clear 


Close 
Close in 


Close out 


Cr 
Cmd 


Cls 
Cont 


Cos 
Creal 


Data 


Bedeutung 

Ergibt absoluten Werteiner 
Zahl ohne deren Vorzei- 
chen 

Gehört zu 
Schleife 
Umwandlung Zeichen in 
‘ASCII-Code 
Ergibt Winkel 
Automatische 
merierung 
Wandelt binären Inhalt in 
eine Zahl um a 
Änderung Rahmenfarbe 
Prozeduraufruf 

Anzeigen von Inhaltsver- 
zeichnis einer Kassette 
Lädt und startet Pro- 
gramm 

Umwandlung ASCII-Code 
in Zeichen 

Löscht Bildschirm und 
Variable 

Schließt File 

Schließt Adreß-Bus Ein- 


do-while- 


Zeilennu- 


gang 
Schließt Adreß-Bus Aus- 


gang 

Löscht Variablen 

Sendet Daten an Peri- 
pherie 

Löschen Bildschirm 

Setzt Ablauf nach Unter- 
brechung fort 

Cosinus 

Ausgabe von Realvaria- 
blen 

Festlegen von Werten in 
Datas, wird von Read 
gelesen 

Definieren einer Funktion 
Definiert Integer-Funktion 
Definiert Real-Funktion 
Definiert String-Funktion 
Winkelfunktion 

Gezieltes Löschen von 
Zeilenbereichen 

Sperre Interrupts 
Dimensionieren von Ar- 
rays und Feldern 
Zeichnen von Linien 
Relatives Zeichen 
Editieren einer Zeile 
Interruptsperre aufheben 
Verneinung bei IF-then... 
Programmende 

Parameter für SOUND 
Parameter für Sound 
Abfrage einer End-of Fi- 
lemarke 

Lösche File 


_Nötig. ° zum Schreiben 


einer Fehlerroutine 
Potenz der mathemati- 
schen Konstanten 
Einstellen der Nachkom- 
mastellen 

Resultat aus Deffn 
Schleifenbeginn 

Anzahl freier Bytes 
Zeichen wird eingegeben 
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Funktion 


Gosub 
Goto 
Ir 

Ink 
Inkey 
Inkey$ 
Inp 
Input 
Int 
Instr 


Joy 
Key 


Left$ 


Len 
Let 
Line 
List 


Load 
Locate 
Log 
Los 10 
Lowers 


Max 


Memory 
Merge 


Mid$ 
Min 
Mod 
Mode 
Move 
MoveR 
Next 
New 

Not 

On 

On Break 
On Error 
Goto 
Open in 
Open Out 


Or 
Out 


Bedeutung 

und der Variable zuge- 
ordnet 

Aufruf von Unterprogram- 
men 

Springt zur angegebenen 
Zeile 

Abfrage aufBedingungen if 
-then 

Bestimmen der Auswahl- 
farben 

Lesen einer Zahl von 
Tastatur 

Lesen eines Zeichens von 
Tastatur 

Eingabe eines Bytes aus ei- 
nem Port 

Eingabe von Daten über 
Tastatur 

Rundet die Stellen nach 
dem Komma ab 

Suchen eines Strings in ei- 
nem anderen 
Joystickabfrage 

Befehl zur Belegung von 
Funktionstasten 

Linken Teilstring ermit- 
teln 

Ermitteln der Stringlänge 
Leitet eine Zuweisung ein 
Zuweisung einer Zeile 
Zeigt die Programmzeilen 
an 

Laden von Programmen 
Positionieren des Cursors 
Natürlicher Logarithmus 
Zehnerlogarithmus 
Suchen nach dem kleine- 
ren String 

Sucht aus 2 oder mehreren 
Zahlen die größte 

Freier Speicherplatz 
Verknüpfung von Pro- 
grammen 

Stringausschnitt ermitteln 
Sucht aus 2 oder mehreren 
Zahlen die kleinste 

Ergibt den Rest einer 
Division 

Umschalten 20-/40-/80- 
Zeichen/Zeile 

Setzen eines Grafikcursors 
Verschieben von Files 
Festlegen von Schleifen- 
ende 

Löscht Speicher. 

Logischer Vergleich 

Macht aus GOTO + 
GOSUB Versionen der IF- 
Anweisung 

Abbrechen einer Zeilen- 
zuweisung 

Sprung zur vordefinierten 
Adresse 

Öffnen einer Datei zum 
Lesen 

Öffnen einer Datei zum 
Schreiben 

Logischer Vergleich 
Ausgabe einer Zahl über 
zuweisbaren Port 


Schneider C-64 

ja ja 

R ja 

ja ja 

ja 

ja 

ja ja 

ja 

ja ja 

ja ja 

ja 

ja 

ja 

ja ja 

3a 3a 

ja ja 

ja 

ja ja 

ja ja 

ja 

ja ja 

ja 

ja 

ja 

ja 

ja 

Ja ja 

J* 

ja 

ja 

ja 

ja 

ja ja 

ja ja 
2 ja ja 

ja ja 

ja 

ja ja 

ja ja 

ja ja 

ja ja 

ja 
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Funktion Bedeutung 


Paper Änderung der Hintergrund- 
farbe 

Peek Speicherinhalt lesen 

Pen Ändern der Zeichenfarbe 

Pi Kreiszahl 

Plot Setzt Punkt auf BS 

Plot R Relatives Zeichen 

Poke Speicherinhalt verändern 

Pos Position der BS-Zeile. an 
der nächstes Print steht 

Print Befehl für BS-Ausgabe 

Print # Ausgabe auf verschiedene 
Geräte 
Verstellen des Winkels 
Setzt Zufallsgenerator 
Liest Data-Anweisung 

Release Aussprung aus Read-An- 
weisung 

Rem Bemerkung in Listings. 
zur besseren Übersicht 

Remain Rücklokationen von Funk- 
tionen 

Renum Umnumerierung von Zei- 
len 

Restore Setzt Data-Zeiger zurück 

Return Schließt Unterprogramm 
ab 

Righis Rechten Teilstring ermit- 
teln 

Rnd . Erzeugen von Zufallszah- 
len 

Round Runden einer Zahl 

Run Startet Programm 

Save Speichern von Program- 
men 

Sen x Ermitteln des Vorzeichens 
vonXx 

Sin Sinus 

Sound Bestimmung der Tonei- 
genischaften 

Spave$ bestimmte Anzahl 


Spex Funktion bei Print-Befechl. 
um x Zeichen zu über- 
springen 

Speed Einstellen‘ der  Blinkge- 
schwindigkeit + Baudrate 
Quadratfunktion 
Quadratwurzel 
Schrittweite der FOR/ 
NEXT-Schleife 

Stop Hält Programm an 

Str$ Wandelt Zahl in String 

Strings Erzeugen von Zeichen- 
ketten 

Sys Startet Maschinenpro- 
gramm 

Tab Nächstes Zeichen wird an 
X-Position gestellt 

Tan Tangens 

Then Zutreffen einer IF-Abfrage 

Time Wert für Zeiteinheit bei 
Farbgrafik 

Troff Ausschalten Trace-Funk- 
tion 

Tron Anschalten Trace-Funk- 
tion 

Upper$ Suchen nach dem größe- 
ren String 

Using Definieren einer Format- 
ausgabe 

Usr Aufruf eines Maschinen- 
Programmes 

Val Wandelt Stringvariable in 
numerische 

Vpos Setzen einer vertikalen 
Position 

Verify Überprüfen von ge- 
speicherten Programmen 

Wait Wartet auf bestimmte 
Situation 

While Ähnlich wie For-Next 

Window Definieren eines BS-Fen- 
sters 

Write Schreiben auf File 

XOr Logischer Vergleich 

X Pos X-Position 

Y Pos Y-Position 
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Wie Sie anhand dieser Vergleichsliste erkennen 
können, hat der Schneider CPC-464 ein umfang- 
reiches und leistungsstarkes System. Bis auf die 
fehlenden Sprites ist derSchneider mit reichhal- 
tigen Funktionen und Befehlen ausgestattet. 
Wichtig, daß Sound und Grafik vom Basic aus 
angesteuert werden können. (sr) 


In dem Buch „DIANETIK” zeigt L. Ron 
Hubbard wie Sie die restlichen 90% 
nutzen können. Sie erfahren: 


@WIE Sie diese ungeahnten Kräfte und 
Energien nutzen können (Intelligenz, 
Emotion, Kreativität) 

@WIE Sie Ihre Intelligenz steigern 
können 

@WIE jeder mehr und mehr des brach- 
liegenden Potentials freisetzen kann. 


Verschwenden Sie nicht den Großteil 
Ihrer Fähigkeit! Lernen Sie Ihr wahres 
Selbst kennen und nutzen Sie Ihr geisti- 
ges Potential VOLL! BESTELLEN SIE 
DIESES BUCH NOCH HEUTE. 


ö; Sie können es bei Bücker Für Alle, 
Wir nutzen nur Fame a D- 8901 Dasing bestellen. 
0, Preis: DM 19,80 Taschenbuch, 
10% unseres (bei Nachnahme: zusätzlich DM 5,20) 


geistigen Potentials 


Lo 
A. Einstein Der schnellste Weg && 08205/ 1408. 
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Fortsetzung von Seite 10 


den. an dessen Ende er eins 
der meistgehüteten Geheim- 
nisse der USA an Moskau 
verkaufte. Seine Laserspiegel 
wurden später in Semi- 
platinsk und Sarajaua bei 
sowjetischen Waffentests 
verwendet. 


Frage: Wie kommen Sie dar- 
auf, daß solche Ost-West- 
Geschäfte einen geheim- 
dienstlichen Hintergrund 
haben? 


Tuck: Es ist allgemein be- 
kannt, daß der damalige 
KGB-Chef Juri Andropow 
Anfang der siebziger Jahre 
eine neuartige Abteilung in 
dem sowjetischen Spiona- 
geapparat unter dem Namen 
Direktorat”I” gegründet hat. 
Heute werden dort 5.000 Ana- 
lytiker mit der Zusammen- 
stellung illegaler Einkaufsli- 
sten und der Planung opti- 
maler Schmuggelrouten be- 
schäftigt. Sie sind keine 
Spione im herkömmlichen 
Sinn, sondern hochkarätige 
Naturwissenschaftler, Inge- 
nieure und Computertech- 
niker. Ihre ausschließliche 
Aufgabe ist jedoch der Dieb- 
stahl von NATO-Knowhow. 
Anhand von Anklageschrif- 
ten, Senatsanhörungen, 
Interviews und Pres- 
seausschnitten läßt sich die 
Spur ihrer weltweitver- 
zweigten Operationen zu- 
rückverfolgen. Einige KGB- 


Agenten tarnen sich bei 
Moskauer Handelsunter- 
nehmen, wie MASHPRI- 


BORINTORG oder 
TECHMASHIMPORT, 

wo sie Weltreisende an- 
sprechen, die sie für Em- 
bargo-Schiebereien anwer- 
ben sollen. Dazu gehört etwa 
Victor Kedrow, der als Agent 
des militärischen Geheim- 
dienstes GRU in London 
aufflog, und später für das 
sowjetische Elektrounter- 
nehmen ELORG die Ein- 
schleusung ganzer Fabrik- 
anlagen in den Ostblock or- 
ganisierte. Andere werden 
näher am Geschehen in den 
westlichen Vertretungen von 
Ostblock-Unternehmen sta- 
tioniert, wie etwa der Mitar- 
beiter der sowjetischen Han- 
delsmission Guennadi Bata- 
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chew, der im letzten Jahr 
wegen Spionage für das 
KGB vom Oberlandes- 
gericht Düsseldorf verurteilt 
wurde. Wo auch immer sie 
sind, mit Geld geizen sie 
nicht. Einige westliche Kauf- 
männer sind durch ihre Ge- 
schäfte mit Sowjetspionen 
schwerreich geworden. 


Frage: Beteiligen sich auch 
große Konzerne an solchen 
Geschäften? 


Tuck: Selten. Unter den 180 
Firmen, die in den schwar- 
zen Listen des US-Handels- 
ministeriums stehen, sind 
ein paar namhafte deutsche 
Konzerne aufgeführt. Aber 
die meisten Firmen in der so- 
genannten "Export Denial 2 
List" sind kleinere Unterneh- 
men und .... 


EIITR 


Frage: .... Sagten Sie, 180? So 
viele bundesdeutsche Unter- 
nehmen stehen in einer US- 
Schwarzliste? 


Tuck: Unternehmen und Pri- 
vatpersonen, ja. Seit der Ver- 
schärfung der amerikani- 
schen Embargobestimmun- 
gen im Jahr 1980 ist der 
illegale Handel ‘mit Spit- N 
zentechnologie sprunghaft 
angestiegen. Die meisten 
Dealer arbeiten aber, wie ge- 
sagt, mit kleineren Firmen. 


Frage: Was wird da sonst 
geschmuggelt? >> 


2 


] Mi 


Tuck: Der bekannteste - ] 
wohl auch größte - Schmug- 
gelring, der jemals aufflog, 
operierte in der Nähe von 
Hamburg. Geleitet wird er 
von: dem Jesteburger Kauf- 
mann Richard Müller. Eine 
Sendung von Müller. wurde 
im vergangenen Herbst am 
Afrika Kai im Hamburger ® 
Freihafen beschlagnahmt. 
Den Inhalt - unter anderen 
zwei hochgezüchtete VAX- : 
782/11 Computer der Digital 

Equipment Corporation -Z 
ließ der US-Verteidigungs- 4 
minister Casper Weinberger 
nach Washington einfliegen, 
wo er ihn der Presse als Bei- 
spiel für den sicherheitsge- 
fährdeten Schwarzhandel 
mit strategischen Com- 
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putern vorführte. Die bri- 
sante Affäre um Müller 
wurde. später sogar im 
Weißen Haus zur Sprache 
gebracht. 


Frage: Was ist daran so 
brisant? Der VAX-782 von 
Digital Equipment ist eigent- 
lich ein gängiger Rechnertyp 


in der westlichen Wirt- 
schaft. 
Tuck: Erst im Zusam- 


menhang mit anderen Hard- 
re- und Softwaresendungen, 
die Müller gleichzeitigdurch 
Hong Kong, Schweden und 
" Südafrika schleuste. ließ sich 
der Zweck des Einkaufs- 
pakets erkennen, das Müller 
für die Sowjets zusammenge- 
stellt hatte. Zusammen mit 
den VAX-Rechnern reichte 
das Gerät zur Errichtung ei- 
ner ganzen Fabrikanlage für 
moderne Computerchips. 


Neben Elektronik besorgte ' 


Müller auch westliche Le- 
dersessel, Schreibtische, Kli- 
maanlagen. Lichtschalter 
und Feuerlöscher. mit denen 
das russische Rechen- 
zentrum ausgeschmückt wer- 
den sollte. Zwei Fliesenleger 
wurden von Hamburg nach 
Moskau geflogen. um einen 
antistatischen Fußboden zu 
verlegen. Hintergrund des 
Unternehmens war die Her- 
stellung sogenannter 'Very- 
High-Speed-Integrated- 

Chips’. Diese Superchips 
oder VHSICs sind der 
aktuelle Brennpunkt neue- 
ster Computertechnologien 
und Gegenstand eines in- 
tensiven Wettlaufs zwischen 
dem Computerriesen IBM 
und dem japanischen Multi 
Hitachi. Von wirtschaft- 
lichen Interessen aber ein- 
mal abgesehen, haben 

VHSICs aber eine Eigen- 
schaft, die für Militärstrate- 
gen äußerst interessant ist: 
sie sind gegen die Strahlen 
aus einer Atomexplosion wi- 
derstandsfähig. Aus eigener 
Kraft hatte die sowjetische 
Industrie eine vergleichbare 
Technologie mit Sicherheit 
nie zustande gebracht. 


Frage: Wo ist dieser Richard 
Müller heute: 


Tuck: Auf der Flucht. US- 
Behörden sowie die Staatsan- 
waltschaft in Lübeck suchen 
ihn per Haftbefehl. Interpol 
fahndet nach ihm, wohl auch 
einige westliche Geheim- 
dienste. Nach meinen Infor- 
mationen hältersich im Ost- 
block auf. InLübeck wirdzur 
Zeit der Prozeß gegen 
mehrere Mitarbeiter von 
Müller vorbereitet. 


Frage: Richard Müller ist 
aber nur ein Mann. Ein 
Einzelfall? 


Tuck: Wohl kaum. Auch die 
acht in meinem Buch be- 
schriebenen Schmuggelfälle 
sind.nur die Spitze eines Eis- 
berges. Im Herbst 1981 grün- 
dete der US-Zoll die‘ Son- 
dertruppe "Operation Exo- 
dus”, die sich ausschließlich 
um Technologie-Delikte 
kümmert. Seitdem wurden 
über 2500 Sendungen be- 
schlagnahmt - und die Dun- 
kelziffer ist erheblich. Dreh- 
scheibe dies schwarzen Han- 
dels ist die Bundesrepublik 
Deutschland. 


Frage: Welche ernstzuneh- 
menden Folgen kann ein 
Handel mit Computern ha- 
ben, die zumeist schon in 
Kaufhäusern für jedermann 
erhältlich sind? Halten Sie 
das wirklich für so gravie- 
rend? 


Tuck: Das Ausmaß des Scha- 
dens für die westliche Sicher- 
heit wird erst deutlich, wenn 
man die Endverbraucher un- 
ter die Lupe nimmt. Rund 
160 Waffensysteme des War- 
schauer Pakts enthalten west- 
liche Technologie. In der 
DDR koordinieren westliche 
Großrechner die Truppen- 
bewegungen der Volksar- 
mee; in Afghanistan steuern 
westliche _ Kleincomputer 
sowjetische Kampfjäger. 
Kriegsschiffe der Roten 
Flotte werden in Trocken- 
docks aus Japan und Schwe- 
den gewartet. Die ATOLL- 
Luft-Luftrakete, die im ver- 
gangenen Herbst von einem 
sowjetischen Luftwaffenpi- 
loten abgefeuert wurde und 
269 Zivilisten in einem Jum- 


bojet der Korean Airlines 
tötete, war eine Eins-zu-eins- 
Kopie der NATO-Sidewin- 
der. Die SS-20 Atomrakete, 
die sich gegen die Bundesre- 
publik richtet, ist geradezu 
vollgestopft mit dem neue- 
sten Know-how der NATO: 
Sie. fahren auf Transport- 
fahrzeugen, die mit Hilfe von 
IBM-Hardware aus New 
York und MIT-Software aus 
Massachusetts entworfen 
wurden; die Raketenspitzen 
sind mit einem Karbonhit- 
zeschild aus New Jersey ge- 
schützt; und sollte der Befehl 
zum Abschuß jemals kom- 
men, werden ihre Mehrfach- 
Sprengsätze mit Kreiseln in 
westliche Ziele gelenkt, die 
mit Hilfe einer US-Firma in 
Vermont hergestellt werden: 
das halte ich schon für 
bedenklich. 


Frage: Daß die Sowjets west- 
liche Militärtechnologie ko- 
pieren ist aber nicht gerade 
neu. 


Tuck: Der östliche Nachbau 
von westlichen Waffen hatin 
der Tat eine lange Tradition 
Schon die alten Tupolev TU- 
4 Fernbomber waren dem 
US-Weltkriegsveteran B-29 
nachempfunden worden. 
Heute geht es aber nicht 
mehr um den schlichten 
Diebstahl von Blaupausen. 
Schon Mitte der 70iger Jahre 
mußten die Sowjets erken- 
nen. daß ihre einheimische 
Industrie außerstande ist, die 
präzisen Herstellungsbedin- 
gungen für Computer-Elek- 
tronik zu erfüllen. Also än- 
derten sie ihre Beschaffungs- 
taktik. Statt - wie bisher - 
westliche Prototypen ein- 
zuschmuggeln, auseinander 
zu montieren und in mühsa- 
mer Kleinarbeit auf rück- 
ständigen Maschinen nach- 
zubauen, :beschlossen sie, 
das nötige Herstellungsgerät 
im Westen gleich mitzube- 
sorgen. Trotz der strategi- 
schen Brisanz dieser -Ma- 
schinen werden sie selten als 
Militärgeheimnis eingestuft. 
Man mußte nur die Embar- 
gobestimmungen der NATO 
umgehen, die den Export in 
ein Ostblockland gesetzlich 


untersagen. 


Frage: Die Sowjets verfügen 
über Forscher und Inge- 
nieure, die zur Weltelite zäh- 
len. Wenn man Ihnen glaubt, 
müßten sie aber in einer hoff- 
nungslosen Abhängigkeit 
zum Westen stehen. Woraus 
wollen Sie das schließen? 


Tuck: Die Überlegenheit west- 
licher Elektronik ist un- 
strittig. Sicher verfügt die 
UdSSR über hervorragende 
Technologien. Siekann auch 
neue Technologien in der 
Massenproduktion ihrer Waf- 
fensysteme überraschend 
schnell umsetzen. Das 
sowjetische Problem liegt 
zwischen Theorie und Tech- 
nologie. Für die rasanten 
Entwicklungen auf dem 
Elektronik-Sektor sind die 
langfristigen . Jahrespläne 
und schwerfälligen Büro- 
kratien einer Planwirtschaft 
denkbar schlecht geeignet. 
Erfindungsgeist und Inno- 
vation werden in den Müh- 
len des Sowjetsystems er- 
stickt. Das zeigen die Entwick- 
lungen der 60iger Jahre: 

Die Rechner, die seinerzeit 
in der Computer-Metropole 
Minsk entstanden, waren be- 
grenzt in der Speicherkapa- 
zität, rückständig im Soft- 
warebereich und sehr störan- 
fällig. Die verantwortlichen 
Werksleiter störte das aller- 
dings kaum. Ihr Erfolgwurde 
ausschließlich an der Zahl 
der produzierten Maschinen 
gemessen. Qualität konnte 
ihnen.egal sein. Als Moskau 
erkennen mußte, daß seine 
Bemühungen scheitern wür- 
den, entstand ein heftiger 
Flügelkampf in der Kremlfüh- 
rung über den besten Weg 
aus der Misere. 

Am Ende wurde beschlos- 
sen, westliche Erfolgsmo- 
delle einfach nachzubauen. 
Die zwei großen Com- 
puterserien, die folgten, wa- 
ren genaue Kopien der IBM- 
Serien 360/S und 370/S- vom 
Betriebsgerät über Zusatz- 
geräte bis hin zur Software. 
Die Russen tauften ihre Raub- 
rechner RYAD-I und 
RYAD-2 und ließen sogar 
die US-Handbücher wort- 
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wörtlich in die Landes- 
sprache übersetzen und 
legten sie den eigenen Ma- 
schinen bei. Damit sparten 
sie Milliarden an Forschungs- 
und Entwicklungskosten. Da 
die russischen RYAD und 
die amerikanischen IBM 
vollkompatibal miteinander 
waren, konnten sowjetische 
Computer gegen einge- 
schmuggelte _Originalma- 
schinen aus USA jederzeit aus 
getauscht werden, wenn be- 
sonders hohe Zuverlässig- 
keit verlangt wurde. Dies ist 
nach Pentagon-Informatio- 
nen beispielsweise im Luft- 
abwehr-Gürtel um die Mos- 
kauer Hauptstadt auch gesche- 
hen. 


Frage: Ist es auch legitim, 
wenn der Westen die UdSSR 
beim Aufbau ihrer Zivi- 
lisation in diesem wichtigen 
Bereich unterstützt? Oder 
plädieren Sie etwa dafür. daß 
man ihnen den Zugang zu 
sämtlicher Elektronik ver- 
bietet, nur weil das eine oder 


andere Gerät eventuell beim 
Militär landen könnte. 


Tuck: Sicherlich sind die 


Sowjets auch im zivilen Be- 
reich an Computern interes- 
siert. Ihre Planwirtschaft 
macht sie zu einen geradezu 
idealen Verbraucher für 
EDV-Systeme. Man darf 
aber nicht vergessen. daß 
dieselben Computer-Chips. 
die wir in Quarzuhren, Vi- 
deospielen oder Schreibma- 
schinen einbauen, ebenfalls 
das Radar eines MIG-23 
Kampfjägers. das Lenksy- 
stem einer Atoll-Abwehrra- 
kete oder die atomaren 
Sprengköpfe der SS-20 steu- 
ern können. Gängige west- 
liche Elektronik. die bei uns 
bereits in Billigprodukten 
verwendet wird. ist im Ost- 
block nach wie vor eine 
Rarität. Daß die sowjeti- 
schen Prioritäten nicht in er- 
ster Linie Quarzuhren und 
Videorecorder für den Ver- 
braucher vorsehen, muß hier 


wohl nicht weiter erläutert 
werden. 


Frage: Sehr entscheidend 
kann dieser Handel letztlich 
nicht sein. Wenn einer den 
anderen kopiert. hinkt er im 
Wettlauf zwangsläufig hin- 
terher. 


Tuck: Nicht zwangsläufig. 
Der Westen ist zwar in der 
Entwicklung neuer Com- 
putertechnologien sehr K 
schnell. aber erheblich 
langsamer als der Warschauer 
Pakt. wenn es um die Dislozie- 
rung neuer Waffen geht. Dies 
wurde Pentagon-Experten 
deutlich. die den Nachbau 
eines amerikanischen Com- 
puterchips in einer sowjeti- 
schen Sonarboje entdeckten. 
Das US-Originalbefand sich 
noch in der Erprobung. Rus- 
sische Rüstungsplaner hat- 
ten die Technologie gestoh- 
len. nachgebaut und dislo- 
ziert. ehe die Washingtoner 
Bürokratie eine Entschei- 
dung über die Verwendung 


im Westen fällen konnte. 
Seit Kriegsende verläßt sich 
die NATO-Verteidigung auf 
die Überlegenheit von west- 
lichem Wissen - auf die Vor- 
stellung. daß Maschinen und 
Menschenmassen durch im- 
mer perfekter werdende 
Technologien ersetzt werden 
können. In den nächsten 
Jahren wird diese Tendenz 
weiter zunehmen. Die soge- 
nannten "denkenden Waf- 
fen” der 80iger Jahre bilden 
eine wesentliche Stütze der 
künftigen NATO-Strategie. 
Es gibt ernstzunehmende 
Überlegungen. die in Europa 
stationierten automaren Ge- 
fechtsfeldwaffen mit moder- 
nen konventionellen Waffen 
gänzlich zu ersetzen - ohne 
Verlust an Verteidigungs- 
kraft. Marschall Orgakow. 
der vor wenigen Wochen als 
Chefstratege des War- 
schauer Pakts abgesetzt 
wurde. hat die strategische 
Bedeutung derlei Entwicklun- 
gen durchaus erkannt. 

(sk) 
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DATENTRÄGERAUSTAUSCH 


Die Verwendung von Computersyste- 
men kann nur dann effektiv gestaltet 
werden. wenn die Vorteile des Rech- 
nereinsatzes nicht durch unzeitgemäße 
Sonderleistungen zunichte gemacht 
werden sollen. Nehmen Sie ein simples 
Beispiel aus dem Heimcomputerbereich: 
ein Computerfan besitzt eine Zentral- 
einheit (= Computer) sowie ein 
Speichergerät (z.B. eine Floppy). Zum 
Drucker als Ausgabegerät hat es leider 
nicht gereicht. - Der stolze Computer- 
besitzer_betreibt Textverarbeitung mit 
Hilfe eines leistungsfähigen Program- 
mes, ist also vonseiten der Software auf 
dem aktuellen Stand. Da er aber keinen 
Drucker besitzt. muß er sämtliche Bild- 
schirmausgaben von Hand kopieren: 
Sie geben sicher auch zu, daß dadurch 
enorm viel Zeitvertan und die"maschi- 
nelle Textverarbeitung” nahezu wertlos 
wird. 


Deshalb versuchen professionelle An- 
wender. möglichst ohne Ausdrucke zu 
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arbeiten und ihre Rechensysteme ent- 
weder “on-line” über Datenleitungen 
miteinander sprechen zu lassen oder 
aber zumindest per Disketten- oder 
Magnetband-Austausch Verbindung 
zu halten. 


So bieten Sparkassen und Banken so- 
wie die Postgiroämter ihren Geschäfts- 
konten-Inhabern die Möglichkeit. statt 
Bündeln von Überweisungsaufträgen 
Datenträger einzureichen. die vom je- 
weiligen Bank-Computer gelesen und 
bearbeitet werden. Umgekehrt erhalten 
solche Kunden keine üblichen Konto- 
auszüge. sondern wiederrum Magnet- 
bänder bzw. Disketten mit allen ange- 
fallenen Buchungen, sodaß die Buch- 
haltung des betreffenden Unterneh- 
mens stark entlastet wird. 


Sie kennen sicher die vorgedruckten 
Zahlkarten. die Versandhäuser ihren 
Rechnungen beifügen. Sie sehen aus 
viele normale Zahlkarten zum Einzah- 


len am Postschalter, tragen aber die 
deutliche Bezeichnung "K” oder selte- 
ner auch "K+”. Das "K” steht für 
"Klarschriftleser-Konto” mit Ver- 
buchung fest vorgegebener Beträge 
(Zahlungsempänger druckt den jewei- 
ligen Betrag fix und fertig auf die 
Zahlkarte/Änderung ist nicht zuläs- 
sig). 


Im Gegensatz dazu meint "K+". daß 
bei diesen Zahlkarten kein Betrag vor- 
gegeben ist. sondern vom Einzahler 
selbst nachgetragen wird. 

Der Computer des Postgiro-Amtes liest 
die maschinellen Eintragungen. ver- 
bucht ordnungsgemäß und erstellt 
monatlich (manchmal auch öfter) ein 
Magnetband fürden Zahlungsempfän- 
ger. 


Datenträgeraustausch ist heute allge- 
mein üblich und aus dem Geschäftsle- 
ben nicht mehr wegzudenken. Vgl. 
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HEURISTIC PROGRAM 

Heuristik ist die Lehre von den Wegen 
zu wissenschaftlicher Erkenntnis 
(griech.: heurisko = finden). Ein heuri- 
stisches Programm besitzt die liebens- 
werte Eigenschaft. aus eigenen Fehlern 
lernen zu können. Leistungsfähige 
Schachcomputer z.B. machen in- 
nerhalb eines Programmlaufes (sprich: 
einer Partie) keinen Fehler doppelt. 


= u u nn 


JACQUARD 

Joseph Jacquard (1752-1834) ist Erfin- 
der des nach ihm benannten Webstuh- 
les. bei dem die Arbeit durch Loch- 
karten gesteuert wurde. Der Jacquard- 
Webstuhl stellt ein frühes Beispiel für 
die Automation von Fertigungsprozes- 
sen dar. 
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HOLLERITH-MASCHINE Be 
Der Amerikaner Herman Hollerith 
(1860-1929) baute bereits Endedesvori- I 
gen Jahrhunderts eine Maschine. die j 
Informationen mittels des speziellen 
Hollerith-Codes in Pappkarten fest- I 
hielt. Erstmals wurde Holleriths Er- I 
findung im Rahmen einer Volkszäh- ı 
lung in 
eingesetzt. 1 
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den Vereinigten Staaten 


MAC 

Die drei Buchstaben stehen für "Multi- 
Access-Computing” und meinen eine 
bestimmte Art der Benutzung einer 
Großrechenanlage. Der Zentralcom- 
puter ist dabei mit einer großen Zahl 
von Terminals verbunden. über die auf 
ihn zugegriffen werden kann. Durch 
die enorme Arbeitsgeschwindigkeit des 
Systems erhält jeder Benutzer den Ein- 
druck. als stehe ihm die Anlage allein 
zur Verfügung. Vergleichen Sie hierzu 
auch unter Stichwort "Time Sharing”, 


MASTER-SLAVE-TECHNIQUE 

Der Begriff bedeutet übersetzt soviel 
wie “Herr & Sklaven-Technik”. Er 
meint die Zusammenarbeit mehrerer 
Prozessoren dergestalt. daß ein Master- 
Processor für das gesamte System ver- 
antwortlich ist. verschiedene Teilaufga- 
ben aber an kleinere Slave-Processors 
abgibt. Dadurch wird die Leistung des 
Masters wesentlich effizienter. Vgl. I 
hierzu auch "Co-Processing”. l 
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C0-PROCESSING 

steht für das Zusammenwirken mehre- 
rer Prozessoren. wobei einem davon 
die Führungsrolle zukommt. die ande- 
ren hingegen mit wichtigen Teilaufga- 
ben betraut werden. Vgl. auch "Master- 
Slave-Technique” 


WAHRSCHEINLICHKEITSRECHNUNG 
Die Wahrscheinlichkeitsrechung be- 
schäftigt sich mit Vorhersagen bezüg-- 
lich der Chancen für den Eintritt von 
Ereignissen. Wenn Sie beispielsweise 
eine Münze werfen. so kann entweder 
"Zahl" oder” Wappen” oben liegen: es 
gibt hier nur zwei mögliche Ereignisse 
und auch zwei mögliche Arten von Er- 
eignissen. Der Mathematiker nimmt 
die Zahl der möglichen Arten und teilt 
diese durch die Anzahl möglicher Er- 
eignisse überhaupt (bei unserem 
"Münzproblem” ist nurein einziges Er- 
eignis möglich. jedoch zwei Arten - das 
Ergebnis wäre also das Verhältnis 1:2). 
was er als "Wahrscheinlichkeit des Er- 
eignisses” interpretiert. 


WORT 

In der Sprachwissenschaft wird ein 
Wort definiert als "semantische (= 
sinnbezogene) Einheit" mehrerer 
"Grapheme” (= Zeichen). Dement- 
sprechend bezeichnet man in der Com- 
puterei diejenige Menge von bits als 
"Wort". die nötig ist. um ein Zeichen zu 
speichern. (bei Heimcomputern sind 
das im allgemeinen 8). 


OVERLAY 

Wenn Programme so umfangreich 
sind. daß sie als Ganzes nicht im Ar- 
beitsspeicher Platz finden. kann man 
sie aufteilen und mittels des Overlay- 
Befehles Stück für Stück in den Rech- 
ner holen. Der Overlay-Befehl ist nicht 
für manuelle Bedienung gedacht. son- 
dern muß stets im Programm selbst 
stehen. Vgl. auch hierzu unter 
"Chain”. 


TURTLE 

Feinschmeckern wird das das’ Wasser 
im Munde zusammenlaufen: sie wer- 
den gleich an Turtle-Soup. also Schild- 
krötensuppe denken. Die Tierschützer 
werden bei diesem Stichwort auf die 


Palme klettern. da es ihnen eine wirk- 
lich gefährdete Tierart in's Gedächt- 
nis ruft. 

Wir Computerfans hingegen haben 


den Begriff “Turtle” im Zusam- 
menhang mit der höheren Program- 
miersprache LOGO kennengelernt, 
wo ‘er den. dreieckigen Cursor be- 
zeichnet. mit dem man auf den Bild- 
schirm zeichnet. 


CHAIN 

heißt auf Deutsch “Kette” und ist ein 
leistungsfähiger Befehl bei Apple II- 
und Sharp-Rechnern. Chain stellt eine 
Version des Overlay-Befehles dar und 
dient zum Segmentieren von umfang- 
reichen Programmen. die nicht kom- 
plett in den Computer passen. Dazu 
wird das jeweilige Listing quasi "ka- 
pitelweise” aufgespalten: Kapitel | wird 
geladen; abgearbeitet und anschlie- 
Bend gelöscht - gleichzeitig wird der 2. 
Teil in den Arbeitsspeicher geholt. der 
dann mit den Zwischenwerten aus Ka- 
pitel 1 weiterarbeitet. Die Maximal- 
länge des auf diese Weise zu bewäilti- 
genden Programmes wird lediglich 
durch die Speicherkapazität des an- 
geschlossenden Massenspeichers (Ma- 
gnetband. Diskette usw) bestimmt. 


PRÜFZIFFER & 

Der Begriff ist mathematisch nicht 
ganz korrekt. da die “Prüfziffer” 
durchaus auch aus einer mehrstelligen 


. Zahl bestehen kann. 


Sie kennen sicher aus der Schule das 
Stichwort "Quersumme”, womit die 
Überprüfung von Rechenergebnissen 
in Form von Addition der Stellen des 
jeweiligen Ergebnisses realisiert wurde. 
Im Prinzip ist die Quersumme eineein- 
fache Ausführung der Prüfziffer (auch 
"Prüfsummenziffer” genannt). Die An- 
wender von Rechensystemen haben je- 
doch wesentlich.komplexere Versionen 
ausgetüftel. um ein Maximum an 
"Subtitutionen” (Fehlern) innerhalb ei- 
nes Rechenlaufes aufdecken zu kön- 
nen. Dabei werden Zwischenergeb- 
nissein Gruppen zusammengefaßt. ad- 
diert und von einem bestimmten 
Maximalwert subtrahiert. wobei die 
"Prüfziffer" das Ergebnis dieser um- 
fangreichen Testaktion ist. 

Die modernen Prüfsummenverfahren. 
die zum Teil normiert sind. haben vor 
allem innerhalb des Datenträgeraus- 
tausches große Bedeutung. Vgl. auch 
dort. 
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GRAPHIK-TABLETT. 


HEHHHEHGEERGHEHEHEEHEHEBEHEHEREHREEREERHEHHHEN FE | Ei Apple Heu 


Graphik-Tablett ist ein Programm, mit dessen Hilfe man mit dem Joystick auf der zweiten 
HGR-Seite des Apple malen kann. 


Die Bedienung erfolgt durch den Joystick. wobei im Menü die jeweils gewünschte Einstellung 
mit Hilfe des Paddle 0 und des Button 0 gewählt wird. Der Zeichenstift wird mit Button I 


gesteuert. PRL 


Um eine Erweiterung des Programmes zu ermöglichen, kann der jeweilige Benutzerein eigenes 
Unterprogramm anfügen, das vom Hauptprogramm aus aufgerufen werden kann. Hierfür 
stehen alle Variablen zur Verfügung, die nicht mit dem Buchstaben J beginnen. X 

Das Unterprogramm muß bei Zeile 5000 beginnen, und am Endeein Return enthalten, um den 
Rücksprung ins Hauptprogramm zu garantieren. 


Soll das Unterprogramm im Hauptmenü mit einem bestimmten Namen’ erscheinen, so 
braucht man nur in Zeile 140 den String “eigene Routine” zu verändern. 


160 JAsi2) = "FARBE WAEHLEN" 
READY. 


0 J2#(0) = "GRAFHIK-SEITE" 
0 J2#(4) "BILDSCHIRM AUSMALEN" 
"BILD -> INVERS" 
"ZEICHNEN" 
"BILD EINLADEN" 
"BILD SFEICHERN" 
"PROGRAMM BEENDEN" 
"VON OBEN " 
"VON UNTEN " 
"VON LINKS " 
"VON RECHTS" 
=07T7T09 
IF LEN (J2a$(J3)) < 30 THEN J2#(J3) J2#$(J3) + " "= GOTO 290 
IF LEN (J2$(J3)) >» 30 THEN J2#(J3) LEFT$ (J2#(J3) ,30) 
NEXT J3 


NORMAL 


HOME 460 HTAB 5 
5 = 0.41 470 VTAB WS *2+M4 J4 = INT (J6 / 36.4) 


HTAB 10 480 - INVERSE IF J4 = JS THEN 840 
FRINT Jis 490 PRINT J2#(J5) INVERSE 

INVERSE 500 JS = J4 HTAB 10 

FOR J3 = 071709 510 HTABS VTAB (JS #2 +4) 
HTAB 5 520 VTAB (JS #2 +4) FRINT JA$#(J5) 
VTAB (J3 #*2+4 530 FLASH 35 = J4 

PRINT. J2$ (93) 540 FRINT J2$(J5) FLASH 

NEXT J3 550 97 = PEEK (49249) HTAB 10 
J6 = FDL (0) 560 IF J7 <£ 128 THEN 430 VTAB (J5S * 2 + 4) 
J4 = INT (J6 / 28) 570 NORMAL FRINT JA$(J5) 

IF J4 = JS THEN 550 J7 = PEEK (49249) 


2 
ON (95 + 1) GODSUB 930,600,630,1770,1000,1660,2350,2090,2180,2270 BE SE THEN 720 
60T0 320 660 J5 = 0.1 ee rer 5 
HSR2 670 FOR JZ = 0 T0 7 see 
TEXT x 680 HTAB 10 Ela 
RETURN < 690 VTAB 43 * 2 +4) en 
HOME 700 PRINT JA$(J3) ann ’ 
TEXTE: 710 NEXT J3 as 
INVERSE 720 J& = FDL (0) 
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940 
950 
960 
970 
980 
9970 
1000 
1010 
1020 


1210 


1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1550 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
16850 
1660 
1670 
1680 
1590 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
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J7 


1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 


FOR JB 
NEXT JB 
FEEK (49249) 
IF J7 < 128 THEN 960 
TEXT 
RETURN 

HOME 

MERT 

INVERSE 


ö TO 100 


FOR JB 
NEXT JB 
37 = PEEK (49249) 

IF 7 < 128 THEN 1090 

ON JS + 1 GOTO 1260,1360,1460, 1560 
GOSUB 880 

FOR JB 
NEXT JB 
FOR JB = 0 TO 191 
HPLOT 0,JB TO 279,JB 
37 PEEK (49249) 

IF 37 > 127 THEN JB 
NEXT JB 

TEXT 

RETURN 

GUSUB 880 

FOR JB 
NEXT JB 
FÜR JB = 191 TO 0 STEP 
HPLOT 0,98 TO 279,JB 
7 = PEEK (49249) 

IF 97 > 127 THEN JB = © 
NEXT JB 

TEXT 

RETURN 

GOSUB 880 

FOR JB = 0 TO 100 

NEXT JB 

FOR JB = 0 TO 279 

HPLOT JB,O TO JB,191 
37 = PEEK (49249) 

IF 97 > 127 THEN JB = 279 
NEXT JB \ 

TEXT 

RETURN 

GOSUB 880 

FOR JB. = 0 TO 100 

NEXT JB 

FOR JB = 279 TO 0 STEP 
HPLOT JB,O TO JB,191 
37 PEEK (49249) 

IF 7 > 127 THEN JB = © 
NEXT JB 

TEXT 

RETURN 

GOSUB 880 

FOR JB = 0 TO 100 

NEXT JB 

FOR JB = 16384 TO 24575 
Jc PEEK (JB) 

POKE JB, (255 - J0) 
37 PEEK (49249) 

IF 97 > 127 THEN JB = 24575 
NEXT JB 

TEXT 

RETURN 

GOSUB 880 

FOR JB = 0 TO 100 


o TO 100 


o TO 100 


191 


0 TO 100 


FDL (0) 
ERICH) 
PEEK (49250) 
IF 47 < 128 THEN 1910 
HFLOT JX * 1.09,9Y / 1.4 
FDL (0) 
FDL (1) 
PEEK (49250) 
IF J7 < 128 THEN 1910 
HFLOT TO IX * 1.09,JY / 1.4 
G0TO 1850 
J7.= PEEK (49249) 
IF 7 > 127 THEN 2070 
FOKE 230,32 
HPLOT JX * 1.09,JY / 1.4 


JS o.1 
FOR J3 
HTAB 10 
VTAB (J3 #*2+6 
PRINT JZ$(J3) 

NEXT J3 

Jö FDL (0) 

J4 INT (J& / 89 
IF J4 = JS THEN 1230 


o TO 3 


1160 JS 
1170 
1180 
1190 
1200 


INN] 


JO = FEEK (38) 
JS = PEEK (J0) 
POKE 230,64 
HPLOT IX * 1.09,9Y / 1.4 
J6 PEEK (J0) 

FOR JE = 0 TO 50 

NEXT JB 

FOKE J0,0 

FOR JB = 0 TO 50 

NEXT JB 

FOKE J0,J5 

GOTO 1800 

TEXT 

RETURN 

HOME 

TEXT 

VTAB 5 

INPUT "NAME DES EILDES ";JDs: PRINT 
INFUT "NUMMER DES LAUFWERKS ";JG$ 

JIF$ = "BLOAD " 

IF$ = IFE + IDE + ",A84000,0" + JG% 
PRINT = PRINT ""sJF$: REM CTRL-D 
RETURN 
HOME 
TEXT 
VTAB 5 
INPUT "NAME DES BILDES ";JD$: PRINT 
INPUT "NUMMER DES LAUFWERKS ";JG$ 

IF$ = "BSAVE " 

IF$.= IF$ + JD$ + ",A$4000;1$2000,D" 
FRINT = FRINT "";JF$: REM CTRL-D 
RETURN 
POP 
HOME 
TEXT 

- END 
RETURN 


+ .PEEK (3N * 256 + 


INVERSE 
HTAB 10 
VTAB 
FRINT JZ$(J5) 


W5*2+6) 


= 34 


FLASH 

HTAB 10, 
VTAB 
PRINT JZ#(J5) 


5 *2+6 


ill il 


Itunaul Li 


PEEK (229) + 8192 


CPU 23 


ynthisound 


für den VC-20 + 3K 


G0OT0 17 
ak 
* SYNTHYSOUND * 
* <C) 1834 BY * 
* OTTOFANT'S WARE %* 
* WRITTEN BY * 

* HEGGELBACHER 

* THORSTEN 

x 

* 


*OLIVER 

* & 

* SCHOLZ 
ek 


Supersound aus dem VC-20! 
Spielen Sie dies hervorragende 

Musikprogramm, gesteuert DREIER 

wird einfach über die Tastatur. "BBBEIBEN OPSPANNEMEER 

Nach dem Laden kann zunächst  Verergregege 

die Lautstärke (1-15) eingestellt en 

und eine Tonart gewählt wer- POKE36866, (PEEK (36666 )ANDIEBORK 


den. Spielbar sind tiefe, mittlere en 
und hohe Töne sowie Spezialef- i PRINTTAB<S>"MaRlIiC) 1984 BY" 

fekte 22 PRINTTNB<S) "IIMPTTOFANT'S WARE" 

ER e FRINT" Ama 

Das Einstellen der Hüllkurven 24 PRINT" A 
wird grafisch untermalt, an- are 
schließend erscheint die ”Kla- PRINT" A 
viatur” auf dem Bildschirm, und EEE 


Sie können in die Tasten POKE36864 , (PEEK (36864 )ANDIES>ORZS-E 
” 9 > POKE36868 , (PEEK (36366 JAND123)0RX 
hauen”. Sn 


Sie werden staunen, was mit FoRraimglBauNENTr. | BI 
i Li IFR=2THENFO -ı : 

Synthisound alles machbar ist! IFK=22THENG® 

SoTo2 

ie R S FOR STOBSTEP-B.1 

P.S. Rückkehr in das Menue ; POKE3E878,Y 


durch Drücken der Leertaste. s2 POKE3SS76,238 
3 POKE26875,238 


vonnu2un-o 


nr 
[7 
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547 
558 
568 
579 
538 
598 
808 
e19 
629 
625 
838 
98 
7-20 
738 
160 
168 
180 
1e1 
1821 


NEXTY 
POKE36376,8 
POKE36875,0 
FORT=1T02888:NEXTT 
FORK=38TO168 
POKE36865,% 
FORT=1TO18:NEXTT 
NEXTX 
PRINT"8"7 :POKE36878 ;28:POKE36878,8 
FORX=168T038STEP-1 
POKE36865 ,% 
FORT=1TO18:NEXTT 
NEXTX 
IFFIBOTHENI4S 
GOSUBSB88 


G0TD168 
ak 
* KLANG * 
* VERAENDERN * 
RR 
mn 
gb ee) 
"+ LAUTSTAERKE 4 
4 


PRINT"BBBSRUNDLAUTSTAERKE 
INPL'TLA 
IFLA<ZOTHENL=LA 


REM++Hrtr HH rt tr HH 
REM+ TONART + 
REM+FtHtrrHr Hr Hr 
: 

PRINT" TONART:" 
PRINT"N T..- TIEF" 


PRINT "as"; : POKE36879, 12 
PRINT" 45 = 
BRINGT Tata Tetel 
PRINT" | LJ 
PRINT" I I 
PRINT" IQ | 


"PRINT" 


LADISUEHRIT 


AHA HD HR 


EG HH BP N BR HD a” 


BRINEIHSTIAISTI TEN Tote 
PRINT" I LI LI 

ERINTELT 121 

PRINT" UI TIO 

PR INT " OOTTBEE G BERR BREI BIBIC RIED BR: BERUF " 
G0T0828 


M=PEEK (197) 
YAM) 
IFYSIOTHENX=Y 
ONLVYGSOSUB32908,3499, 3899 ,4099 ,4288 
IFM=32THENF=F+1:60T0118 
G0T0628 

ö GOTO1798 

4 

S 

) 

8 
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REM#+++r ++ +++ 
REM+HUELLKUR 
REM+ ZEICHNEI 
REld+t+ttt++++ 
3 


3 

PRINT" 
PRINT" 
PRINT® 
PRINT” 
PRINT” 
PRINT" 
PRINT" 
RETURN 
PRINT " (Zumrunm 
PRINT" 
FRINT*® 
PRINT" 


PRINT" M...MITTEL 
H...HOCH" 


S...SPEZIAL*” 


rt; 185 


PRINT* 
INPUT" 


. 
REM--- 
REM- HUELLKURVE - 


G0SUB1798 

GETLVS: IFLV$S=""THEN2S5® 
IFLVS=CHR$S (32) THENLV=1:G60T0S5998 
GOSUB 1980 

GETLVS$: IFLVS=" "THEN27O 
IFLV$=CHR$ (32) THENLV=2:G0T0508 
GOSUB2388 

GETLVS: IFLVY$=""THEN285 
IFLVS=CHRS (32) THENLV=3:G0T0598 
GOSUB2ESBR 

GETLVS: IFLVS=" " THEN308 
IFLVYS=CHR$ (32) THENLV=4 16070588 
GoSuUB2r708 

GETLVS$: IFLVS=""THEN3208 
IFLVS=CHR$ (32) THENLV=5:G0T0588 
GOTO248 

FOKES3637&,L 


IFT$="T" THENTA=36874 : POKE36875 ,8:POKE36876,8 
IFT$=*"M"THENTA=36875:POKE36874 ‚8: POKE36876,8 
IFT$="H"ORT$="S"THENTA=36876 1POKE36874 ‚81POKE36875,8 


i 
I 2 ko 
REM" A 
SEM Zar) 
REM"| KLAVIATUR I | 
REM") ZEICHNEN 11 
REM" v 
REM" 


++++ 
VEN+ 
N + 
+tr++ 


PRINT*® 
FRINT" 
RETURN 
PRINT "zu 
PRINT" 
PRINT" 
PRINT" 
PRINT“ 
PRINT* 
PRINT“ 
RETURN 


PRINT'/IESEEE __ 


ePDBin 


REMAKEKEREE EEE 
REMsHUELLKURVE %* 

REM&* STEUERN * 
REMIKKKKEREREER 

D 

D 

IFY<>OTHENZ =d 
POKE36878,L-2 

POKETA,* 

IFT$="S" THENPOKE36875,* 
Z=2+8.5 

IFZ>LTHENZ =L 

RETURN 

IFY<>BOTHENZ =8 
POKE36878,L-2 
POKETA,R 

IFT$="S" THENPOKE36875,8% 
IFP=1THENZ =2 +3 
IFP=ZTHENP=B12=2-2 
P=P+1 

IFZ>L-2. 1THENZ=L 
IFZ<2OTHENZ =®8 

RETURN 

IFY<IBTHENZ =2 -2:K=K+L 
IFY=B8THENZ =L 
IFZ<OTHENZ = 
POKE36878,L-2 

POKETA,X 

IFT$="S * THENPOKE36875,* 
RETURN 

IFY<DBOTHENZ =2-2 


‚Händler : 
2300 Kiel 


APPLE 
ATARI 
BASIS 
Commodore 


DAI 


MicroComputerChrist &% 


\ 3 OSBORNE 
Rathausstraße 4, 2300 Kiel 1 sHARP 


Telefon (04 31) 96376 TANDY 


1000 Berlin: 


Genie 16 MTX-512 


= 
& und was der Mensch sonst BRAUCHT 


A& C Vertrieb 
Berlin 44, Emser Str. 18 
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IFM=64 THENZ =2 +08.5 
IFZ<BOTHENZ =8 
IFZ>L-1.1THENZ=L 
POKE3E878 ,L-2 

POKETA,X 
IFT$="S"THENPOKE36875,*% 
RETURN 

IFY<>OTHENZ =Z-2.1:P=® 
IFY=8THENP=P+1 
IFP=1THENZ =2 +3 
IFP=2THENZ=2-2:P=® 
IFZ<ÖTHENZ =8 
IFZ>L-2.1THENZ=L 
POKE36878,L-2 

POKETA,R 

IFT$S="S" THENPOKE36875,8 
RETURN 

2 


i} 
4 
I) 
l 
l 
l 
ı 


STEUERUNG 
4 


DIMA(70) 

FORI1=1T021 

READB :READCIAKCI=B 

NEXT 

F=1:RETURN 
DATAIS3,48,187,56,191,9,195,49,199,57,201,18,203,2 
DATA287 ,50,209,11,212,3,215,51,217,59,219,12,221,4 
DATA223 ,52 ,225,13,227,5,228,53,229,61,231,14,232,54 


3000 Hannover 6630 Saarlouis 


6630 Saarlouis, 
Lothringerstraße 9 

Minninger 

8500 Nürnberg 


Micro-Computer, Peripherie und Software GmbH 


APPLE SHARP EPSON CENTRONICS FELTRON 
IBS Interface SINCI AIR SOFTWAREERSTELLUNG 
Gibitzenhofstr. 69. 8500 Nurnberg 1. Tel. (09 11) 677093 


"4000 Düsseldorf 


IHR GROSSER PARTNER 
FÜR KLEINE COMPUTER 


DATA BECKER 


Merowingerstr 30 4000 Düsseldorf Tel.02 11.310010 
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Das Programm "Zahlensysteme” ist in 
folgender Weise aufgebaut: 


10: Initialisierung 

20: Menue 

55: Cursor 

68: Tastaturabfrage 

85: Abspeichern 

95: Länge des Programms 

100: Dezimal - Binär 

200: Binär - Dezimal 

300: Hexadezimal - Dezimal 

400: Dezimal - Hexadezimal 

500: Römische Zahlen - Dezimal- 
zahlen 

600: Dezimalzahlen - 
Zahlen 


Römische 


In der Intitialisierungsphase werden 
die römischen Zahlzeichen in die Ar- 
nayvariable R$ eingelesen. Die Array- 
variable D enthält die entsprechenden 
dezimalen Werte. 


Das Menue: 

Auf dem Bildschirm wird ein blinken- 
der Cursor simuliert, der zur Eingabe 
der Nummer des gewählten Teilpro- 
gramms auffordert. Nach der Eingabe 
wird sofort (ohne RETURN) ins Teil- 
programm gesprungen, und nicht wie 
bei INPUT mit RETURN. 

In jedem Teilprogramm werden die 
Eingaben auf die zulässigen Zahlen 
und falls erforderlich auf den zulässi- 
gen Zahlenbereich hin untersucht. 
Nach der fünften Eingabe wird ein 
neuer Screen aufgebaut, um ein Durch- 
scrollen zu verhindern. 

Mit der Tastenkombination SHIFT Z 
RETURN kommt man wieder ins Me- 
nue zurück. 

Für den VZ-200 wird eine 16K 
Speichererweiterung benötigt, dieLeer- 
und Remzeilen können natürlich weg- 
gelassen werden. 
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“ Zahlensysteme " 
-- für den VZ-200/Laser 210 |! 
A pi > m 
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= 
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N 
v 
VI 
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Variablenliste für ”Zahlensysteme*: 
R$(8): Enthält römische Zahlzeichen 
D(8): Enthält die entsprechenden 


Iinıiolnl> 


‘Dezimalzahlen 


E$: Eingabevariable 

Z, UU: Anzahl der Eingaben pro 
Screen 

A: Enthält Dezimalwert aus Eingabe- 
teilstring 

BIN$: Binärzahl 

DEZ: Dezimalzahl 

HEX$/: Hexadezimalzahl 

E$(N): Array mit Elementen des 
Eingabestrings 

X(D: Hilfsarray 

GEF: Gosubflag 

Z: Dezimalzahl 

N$: Dezimalzahl (als String) 

N: VAL (E$) in Teilprogramm 6 
N$(D: Hilfsarray 

U$: Enthält ”O” 

S$, R, S, E: Hilfsvariablen 

D$: Variable zum Aufaddieren der rö- 
mischen Zahl 

A$, B$, C$: Enthält entsprechende rö- 
mische Zahlzeichen 

X: Laufvariable 


Eine weitere Besonderheit wäre zu' 
erwähnen: 


Nach der Berechnungder Dezimalzahl 
aus einer römischen Zahl prüft das Pro- 
gramm, ob die römische Zahl richtig 
eingegeben wurde. 

Dafür wird das Gosubflag GF gesetzt 
und ins Teilprogramm für die Umrech- 
nung Dezimal-Römisch gesprungen. 
Ist die im Unterprogramm erzeugte 
Zahl (String mitrömischer Zahl) gleich 
der eingegebenen römischen Zahl, 
wird diese auf den Bildschirm ge- 
printet (dezimal), so wird die richtige 
römische Zahl ausgedruckt und dann 
erst die entsprechende Dezimalzahl. 


HEXADEZIMAL --> DEZIMAL 


HEX? FFFF 
DEZ 65535 


HEX? 11423 


BINAER --> DEZIMAL 
Se Er BE 


255 

? 123 

? 818181 
21 


? B82BR101 
5 


ZAHLENUMWANDLUNG 


DEZIMAL -> BINAER 
BINAER  -> DEZIMAL 


HEXADEZIMAL -> DEZIMAL 
DEZIMAL -> HEXADEZIMAL 


5 ROEMISCH -> DEZIMAL 
DEZIMAL -> ROEMISCH 


ABSPEICHERN DES PROGRAMMS 


DEZIMAL --> BINAER 


DEZ? 15 
BIN Bageıı1ı 


DER? 234 
öIN 11181818 


DEZ? 3 
BIN BBBaacıı 


DER? 


RUEMISCH --> DEZIMAL 


RLEMISCHE FAHL 
DEZIMAL 1584 


RCEMISCHE ZAHL ? CEII 
TTEIT 


7 MEMLXXSIL 


RCEFTSCHE ZAHL 
RICHTIG Iv 
bEZIN 4 


RLENISCHE ZAHL 


ZAHLENSYSTEME 
’ COPYRIGHT BY 

’ WOLFGANG FISCHER 

B 

v 

’ INITIALISIERUNG 

ö 

DEEAI SU H3%,L36,D,M,®° 
FORR=1TOB :READRSCR) «NEXT 


® 
DATAI1,5,19,50,100,508,1900,8 
FORD=1T08:READDCD) «NEXT 
DIME$C16) ,%C17) 

® 


Reese \VOUWN- 


DURAWN-O 


0 
’ ERZEUGEN DES MENUES 
ı 


CPU 


27 


28 CPU 


28 CLSeSOUND2S,1 «PRINT «PRINTTABC6) "ZAHLE 
NUMWANDLLING " :PRINT 
® PRINT" 1 DEZIMAL -> BINAER" 
PRINT" 2 BINAER -> DEZIMAL" 
PRINT 
PRINT" 3 HEXADEZIMAL -> DEZIMAL " 
PRINT" 4 DEZIMAL -> HEXADEZIMAL " 
5 
6 
? 


' PRINT 
PRINT" ROEMISCH -> DEZIMAL" 
PRINT" DEZIMAL -> ROEMISCH" 
PRINT 
PRINT" ABSPEICHERN DES PROGRAMMS" 
D 
“ 


” CURSOR 
° 


IFINKEY$<J " "THENSS 
PRINT@451 ‚CHR$ (255) :G0SUB68 
PRINT@451," ":G0SUB68 
60T056 


‘ 
’ TASTATURABFRAGE 
0 
FORI=1T028 
= 8 "THENYS 
"\THEN192. 
"THEN2Q@ 
"3 "THEN3@Q 
4 "THEN488 
5"THENS8Q 
6 "THENG@B® 
IFINKEY$= "7 "THEN8S 
88 NEXT «RETURN 


® 
B2 ” ABSPEICHERN DES PROGRAMMS 
e 
85 CLS:FORX=1T014 «PRINT «NEXT 
86 PRINT "CSAVE "CHR$C34) "ZAHLENSYSTEME "CH 
R$C34) «SOUND3® ‚1 
87 CSAUE ('ZAHLENSYSTEME " «SOUND3® ,1«VERIFY 
SEOTEENDISTENIEN 


LEANGE DES PROGRAMMS 


SOUND31 ‚1 :PRINTLPEEKC38969)-+PEEKL3897 
081x256) -31465 «END 


> DEZ --> BIN 
‘ 
CLS «SOUND31 ;1 
PRINTTABL4) "DEZIMAL --> BINAER" 
PRINT :« INPUT" DEZ "3E$ 
IFES=CHR$C128ITHENRLUNELSEZ=Z+1 
IFZ=STHENZ=8 :G0T0186 
IFE$=""THEN188 
FORI=1TOLENLESIMAFASCCMIDSCES ,1,1)) 
IFA<480RA>SATHENIB8ELSENEXT 
BINS="":DEZRUALCES) 
12A_RAINTCDERZ/2N 
125.8 IN$=CHR$ (DEZ-RK2H4B IH BINS 
13A_DEZFR : IFRGOTO12A 
135 IFLENCBIN® KATHENBINS=RIGHTSC "0080088 
8"+BINs ‚8). 
14A_PRINT!_ BIN BINE:GOTDIa8B 
15a: 
N 
199 
288 ’ BIN --> DEZ 
2085_ 
286 CLS:SOLUND31 ‚1 
287? PRINTTABLC4) "BINAER --> DEZIMAL" 
218 PRINT«INPUT" BIN ";BIN$ 
211 IFBIN$=CHR$C128ITHENRUNELSEZ=Z+1 
212 IFZ=STHENZ=8:60T0286 
219 DEZ=8 
228 FORI=1TOLENEBINS) 
225 S$=MID$CBIN$ ,I,1) 
238 IFS$< "BO "ORS$I "1 "THEN218 
248 DEZ=DEZX2+ASCLSS)-48 
245 NEXT 
PRINT" DEZ "DEZ:GOTO218 
‘ 
® 
‘ 
” HEX --> DER 
0 
CLS«SOUND31 ‚1 
PRINTTABC4) "HEXADEZIMAL --> DEZIMAL" 


PRINT «INPUT " HEX "3HEX$ 

IFHEX$=CHR$C128) THENRUNELSEZ=Z+1 

IFZ=STHENZ=8:G0T0386 

DEZ=B « IFHEX$= " "THEN388 

FORI=1TOLENCHEX$) 
A=ASCCMIDSCHEX$ ,1,1)) 


GOSLUB38@ 
A=H-48 : 1FAYITHENA=A-7? 
DEZ=DERX16+A 
NEXT 
PRINT" DEZ "DEZ:GOTO388 
D 
» 


0 
D 
? UNTERPROGRAMM 
’ HEXADEZIMAL -ZAHLEN-SIEB 
D 
IFAYAZANDA<SSORAYEA4ANDA<?1THENRETURN 

ELSE3QB 

398 : 
‘ 
0 
’ DEZ --> HE 


D 
CLS«SOLIND31 ‚1 
PRINTTABLC4) "DEZIMAL --> HEXADEZIMAL " 


PRINT «INPUT " DEZ "3E& 
IFES=CHRSCI2SITHENRUNELSEZ=Z+1 


2 KEEEST TNENENg Ran SOLonas 


FORI= NTOLENCES). sA=ASCLMIDSCES,1,1)) 
IFA<4BORAIS7THENALBELSENEXT 

420..HEX$= ""«DEZ=VALCES) 

425: IFDEZYESSISTHENG418 

438 FORI=1T04 

435. R=INTCDER/16) 

448 S=DEZ-Rx16 

4e5 IFS>STHENS=S+7 

458 S=5+48 

45 HERSSCHRECSI+HERS 

483 DEZE 


465. NEXT 

428 PRINT" HEX  "HEX$:GOTO418 
498 : 

499... 

582__?. ROEMISCH --> DEZIMAL 
503 « 

588 CLS:UU= 9 SENSE e 


2-2 DEZIMAL 


Ie} I 
Sn 8 BRINT unpuß®e ROERTSCHE ZAHL Es 
511 IFE$=CHR$C128NTHENRUN 
512_-UU=UU+1 « IFUU=4THENSQS 
513 IFE$=""THENSIO 

213 Es (ES): IFEILETHENSIB 
17.FORI= 


Tage! = 
m OVeul-i 
Anz oO: 
SIeomm: 


SS® FORI=1TOE:JAJ-1 
SSSI-IFXCJ+1I2XCIITHENZEZ -X0J) 
556 IFXCI+1I<=XCJITHENZREHXCH 
558 NEXTI 
Er Eee 
F=1«eN=2 ıGOSLBE28 


368 Irgss BETHENSABELSEPRINT® RICHTIG 


z& 
SZA_PRINT" DERIMAL "2«60T0518 
SISAı 


92... 

Rat DEzImaL --> ROEMISCH 

622... 

688 CLS:UU=2 :SOUND3Q,L 

689 PRINT" DEZIMAL --> ROEMISCH" 

618 PRINT «INPUT. DERXIMALZAHL I 
$= $C128)IH N 

BIS HEESSHRSETZE3FLEHE 

616 IFES=""THENGILA 

618_NFVALLES) 

62A_IEN>AANDN(4289.,621ELSE618 

B21_N$=RIGHTSCSTRELNI,4JeUS= "O0" 

932 -IFLENCN$)J=4 THENG24ELSENS=US+NS :GOTOB 


624 FORI=1T04 
626___N$CII=MIDECNE,T,1: 


Eau II As=.M NeBE= "NeCs=""GOSU 
832 K=UALCNSCZIIHAS="C YeB$= 'D":C$="M":GO 


SBACKzUnLENeC329 1n8="% “iBS="L".CE="C":GO 
BAROKEUALCNECA)IuAS= "I" BES "U" Che 
SUB 
6408. IFGF=1THENGF=& «RETURN 
658 PRINT" ROEMISCHE ZAHL ",2# 
652_60710618 
654... 
65a 
Beane. "V 

883 JEKSITHENDESAS 

F 


SEALIFKZSTHEND srAs+As 
664_.IFK=4THEND $+B$ 
663 IFK=STHENDS=-BS$ 


SHA$s 
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Data Generator 
für den VZ-200/Laser 210 


Wenn Sie größere Datenmengen in DATA-Zeilen unterbringen wollen, sich aber die Ein- 
gabe der Zeilennummer und der Anführungszeichen ersparen wollen, dann werden Sie über 


dieses Programm erfreut sein. 


Um die Schrittweite zu verändern, geben Sie bitte in Zeile 310 nach STEP den gewünschten 
Wert ein, sowie in Zeile 350 den gleichen Wert zum Erzeugen der nächsten Anfangszeile. 
Um schon erzeugte DATA-Zeilen zu löschen, verändern Siebitte in Zeile 945 den Startwert 
auf die erste- Zeile, die gelöscht werden soll: und verfahren mit der Schrittweite 


entsprechend oben. 


1 CLS « CLEAR 1988 : A=1908 
99: « 

188 ? INPUT 

101 e 

118 CLS «PRINT 

115 e 

128 FOR I=1 TO 6 

138 PRINTI; « INPUTX$CI) 
148 IF LENCX$C1))>38 THEN 138 
158 NEXT I 

292. « 
298 « 
308. ? 
302 ı 
306 « 
387 CLS:«SOLND31 ,1 

388 PRINT «PRINT «PRINT 

389 ı 

318 FOR V=A TO 1988 STEP 18 
315 J=J+l 

328 PRINT USING "#### DATA "3V3 
322 PRINT CHR$(34) 3; 

324 PRINT X$CJ)3 

326 PRINT CHR$C34) 

348 IF J=6 THEN 358 

345 NEXT U 

346 

347 

348 

358 A=U+18 

355 PRINT "A=";3 A; ":GOTO11Q" 
368 PRINT CHR$C28) 

363 ı _ 

365 END 

298 : 

7291 « 

948 ? DATA?S LOESCHEN 

941 : 

942 ı 

945 A=1888:J=8 

946 ı 

947 CLS:PRINT «PRINT PRINT 
949 « 

958 FOR U=A TO 1988 STEP 18 
951. J=J+1 

952 PRINT USING "#HH# "U 
954 IF _J=6 THEN 988 

956 NEXT U 

968 : 

962 END 

964 : 

988 A=V+18 

982 PRINT'"A="; A; ":GOT0947" 
984 PRINT CHR$C28) 

985 

986 END 

999 : 

1888 DATA"® 

1812 DATA" 

1828 DATA"DATA GEN" 

1838 DATA"” 

1848 DATA "VARIABLENLISTE" 
1858 DATA” 

1868 DATA"" 

1878 DATA'A ANFANGSZEILENNUMMER" 
1288 DATA"I LAUF VAR." 


VAR -> DATA 
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DATA" LAUF VAR.“ 

DATA"U LAUF VAR. 

DATA"XC I EINGABEARRAY " 

DATA» 

Data" 

Data" 

DATA"MIT DIESEM PROGRAMM KOENNEN " 
DATA"SIE DATA, PRINT LIND REM ZEILEN 


DATA "ERZEUGEN, OHNE SICH UM DIE" 
DATA "EINGABE VON ZEILENNUMMERN LIND" 


DATA "ANFLIEHRLINGSZEICHEN CHR$C34) " 
DATA "KUIEMMERN " 

DATA"ZU MUESSEN. ” 

DATA"” 

DATA"WIE DAS PROGRAMM ARBEITET IST" 


DATA"LEICHT ZU VERSTEHEN: " 

DATA "ZUERST WERDEN DIE ERSTEN 6" 
DATA"ZEILEN IN EINEM ARRAY" 

DATA "GESAMMELT." 

DATA"NUR SECHS ZEILEN DESHALB, ” 
DATA"WEIL DIE SPAETERE PROGRAMM=" 
DATA"ZEILE MEHR WIE 32 ZEICHEN ENT= 


DATA"HALTEN KOENNTE, WAS ZWEI" 
DATANBILDSCHIRMZEILEN ERFORDERN" 
DATA "WUERDE . 


DATA"IM NAECHSTEN EROGRAMNTE EL" 
DATA"WIRD DAS ARRAY IN EINER 


DATA"SCHLEIFE AUSGEDRUCKT, JEWEILS" 


DATA'"MIT DER ENTSPRECHENDEN " 


DATANZEILENNUMMER, DEREN SCHRITT= 
BATAHBEITE MAN ölech” DERRENDERN 


"DES WERTES 
BATAHBTEP"ÜRRRENDERN Kann." 
DATA" 

DATAANUN ERRECHNET DER COMPUTER" 


DA TA„DIE NEUE ZEILENNUMMER UN! 
DATA"SPEICHERT SIE AUF DEM SC Ier" 
DATA"ALS ZUWEISUNG ZUSAMMEN MIT" 


DATA"EINEN GOTO SPRUNG, IN DAS" 
DATA"INPUT PROGRAMMTEIL. " 
DATA"JETZT ERZEUGT DER COMPUTER" 
DATA "CLURSOR HOME = CHREC28) " 
DATA "UND GEHT DURCH END IN DEN" 
DATA "EDITOR. © 
DATA"SIE UBERNEHMEN DIE ZEILEN" 
DATA"WIE GEWOHNT MIT DRETURNG ," 
DATA"FUEHREN DIE VARIABLENZU=" 
DATA“WEISUNG FUER DIE NAECHSTE " 
DATA"ZEILENNUMMER AUS LIND KEHREN " 
DATA "DURCH N 
DATA NBURCH GOTOL1@ INS PROGRAHM 
DATA"“ 
DATATDn MIT INPUT ABGEFRAGT WIRD, " 
RUKANN MEN EDER GOLON NOCH“ 


2 BATR "KöpHIn EINGEB 


ANABER HIER KANN. IN ENT= 
BATA SBRECHERBES UNT RBROBRANN " 


DATA"ABHILFE SCHAFFEN. 

DATA" " 

DATA"VIEL SPASS MIT DATA GEN" 
DATA" 

DATR° 
Data" 


CPU 


29 


CPU-Utilit 


Lösung von | 
Gleich ungssystemen für den Commodore 64 


Das Programm ist besonders gedacht für Schüler des Benutzte Varlable:- 

9. oder 10. Schuljahres. Es berechnet mit Hilfe von E und D: Haupt-Determinant 
Determinanten "Lineare Gleichungssysteme mit drei EI und D(X): X-Determinante 
Variablen” und eignet sich sehr gut zur Anfertigung E2 und D(Y): Y-Determinante 
und Kontrolle von Hausaufgaben; die Bedienung des E3 und D(Z): Z-Determinante 
Programms ist sehr einfach. Als Peripheriegerät Ist A$: Aufgabe (z.B. 2.a) 

ein Drucker möglich. { N$: Abfrage drucken ja/nein 

Al, A2...D2, D3: Koeffizienten für X, Y und Z. 


5 PRINT" FROGRAMM VON RUEDIGER BEHREND, KREFELD" 
FRINT"EI LINEARES GLEICHUNGSSYSTEM MIT MW DREI VARIABLEN DER FORM: " 
OFENI,4 
PRINT" IR] ALX+BIY+C1Z=D1" 
PRINT" ET A2X+B2Y+C2Z=D2" 
PRINT" ET ASX+B3Y+C3Z= 
INFUT"EIA1,A2,A3,B1,82,83,01,C2,C3,D1,D2,D3@ ";A1,A2,A3,B1,B2,B3,C1,C2 
INPUTC3,D1,D2,D3 ; 
INPUT "III AUFGABE" ; As: INFUT"AEN AUSGABE AUF DRUCKER (J/N) "NS 
E=AI#BZXC: CixA2x* 3#B2+C1-BIRC2KA1-CIKBLRKA2 
,2#B3) -Bl* (D2+C3-D3#C2) +C1%* (D2#B3-DI*B2) 
22) -D1* (A2HCH-ASKC2) +C1* (A2KDE-ASKD2) 
:D2) -B1* (APKDE-AEKD2) +D1% (A2*BS-ASKB2) 


PRINTAS;" D=";E5" DI(X=";E15" DIN =";E23" DIZI="JES 
IFE=Ö0ANDE1=0ANDEZ=0ANDEF=OTHENZOO 

IFE 

=E2/E: Z= ES/E 

PRINT" x="3X:" Y="3Y3;"  Z="52:60T0400 

FRINT'"@I ES GIET UNENDLICH VIELE LOESUNGEN! !":G6OT0400 
IFE1=00ORER=00REF=ÖTHENI120 

FRINT"@@ ES GIET HEINE LOESUNG!!!" 


PRINT#1:CLOSE1 17 


D(Y)=-92 D(Z)= 115 
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SPEED PRINT 


für den Sharp MZ-80A 


Sehr dünn gesät ist das Angebot guter Anwendersoftware für den 
Sharp MZ-80A. Will man an diesem Computer einen Drucker ver- 
wenden, der den gesamten Befehlssatz des Rechners nutzen kann, 
so blieb bisher nur die Möglichkeit, einen Sharp-Drucker für teures 
Geld zu erwerben. Diese Drucker haben kein sehr gutes Schriftbild 
und sind zudem noch sehr langsam. 

Alternativ zu dem Druckerangebot hat die Firma Sharp jedoch auch 
ein Centronics Interface auf den Markt gebracht. Allerdings fehlt 
die nötige Treibersoftware zum Ansteuern guter Drucker. 

Aus diesem Grund veröffentlichen wir hier ein entsprechendes Pro- 
gramm das’jeden Sharp-Besitzer begeistern wird, da gleichwertige 
Software im Handel bis zu 300,- DM kostet. ; 


Das Programm ermöglicht den An- 
schluß des weltbekannten Druckers 
EPSON FX-80, der aufgrund seiner 
Schnelligkeit und der umschaltbaren 
Zeichensätze sehr gut für den Sharp- 
Anwender geeignet ist. 

Das Programm initialisiert sich selbst 
und ist menuegesteuert. Die einzelnen 
Menuepunkte sind: 


1.3.1. Drucker ein: 

1) Anwahl: -1- 

2) Funktion: Drucker wird Software- 
„seitig eingeschaltet. 

3) Anzeige: Status 'Ein’ (Drucker muß 

Hardware-seitig eingeschaltet sein). 

Programm wartet auf erneute Ein- 

gabe. 

4) Fehler: Wie 1.2 > 3< 


1.3.2. Drucker aus: 

I) Anwahl: -2- 

2) Funktion: Drucker wird Software- 
seitig ausgeschaltet. 

3) Anzeige: Status "aus’ (Drucker muß 
Hardware-seitig eingeschaltet sein). 
Programm wartet auf erneute. Ein- 
gabe. 

4) Fehler: Wie 1.2.> 3< 


1.3.3. Druckmodus ein: 

1) Anwahl: -3- 

2) Funktion: Druck-Modus wird einge- 
geben und angewählt. 

3) Anzeige: A) Bildschirm wird 
gelöscht. 

B) Anzeige: 
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In welchem Modus wollen Sie 
arbeiten? 

/ ist Menue 

Modus-Nr: 

C) Eingabe: 

-/- ist Menue 

- 1-63 - ist Modus 

D) Fehler: 

Modus Nr. 5-6-7-8-20 (falscher Druck- 
modus) 

dito<0 

dito > 63 

alphanumerische Zeichen 

E) Anzeige: 

Cursiv-Schrift > /N< 

F) Eingabe: 

‘I Cursiv-Schrift wird eingeschaltet. 
"Alle anderen Tasten’ keine Cursiv- 
Schrift. 

Als Status wird die Modus-Nr. und bei 
Cursiv-Schrift ein 'C' angezeigt. 


1.3.4 Nominierung 

1) Anwahl: -4- 

2) Funktion: Drucker wird nominiert 
(Grundeinstellung). 

3) Anzeige: Maske bleibt erhalten. 
Statusanzeige wird wie folgt geändert: 
Drucker 'Ein’ 

Modus '0' 

Drucker 'NOM' 

Kopf 'HOME' 

4) Fehler: wie 1.2 > 3< 


1.3.5 Neues Blatt: 
1) Anwahl: -5- 


2) Funktion: Drucker gibt 'Form-Feed' 
aus (Blatt wird bis zur Adreßdatei 
vorgedruckt. 

3) Anzeige: Maske bleibt erhalten. So- 
lange Blatt vorrückt erscheint 'OK'. 

4) Fehler: Wie 1.2 > 3< 


1.3.6. Zeile vor: 

1) Anwahl: Druckergibt'Line-Feed' aus 
(Blatt wird um -n- Zeilen vorgefahren). 
3) Anzeige: A) Bildschirm wird 
gelöscht. 

B) Anzeige: 

Wieviel Zeilen vorwärts? 

Max9 Zeilen 

/ ist Menue 

C) Eingabe: 

/ ist Menue 

1...2...3...9 ist Vorschub um -n- Pos. 
D) Fehler: 

alphanumerische Daten 

E) Anzeige: \ 

** OK ** xx Zeile(n) vorgefahren 
weiter mit irgendeiner Taste. 

F) Eingabe: 

Alle Tasten bewirken Rücksprung zum 
Menue, 


1.3.7 Zeile zurück. 

1) Anwahl: -7- 

2) Funktion: Drucker gibt "Line-Back- 
Feed' aus. 

(Blatt wird um -n- Zeilen zurückgefah- 
ren). 

3) Anzeige: A) Bildschirm wird gelöscht. 
B) Anzeige: 

Wieviel Zeilen rückwärts? 

Max 9 Zeilen 

/ ist Menue. 

C) Eingabe: 

/ ist Menue 

1..2..3...9 ist Rückschub um -n- Pos. 
D) Fehler: 

Alphanumerische Daten 

E) Anzeige: 

** OK ** xx Zeile(n) zurückfahren, 
weiter mit irgendeiner -Taste. 

F) Eingabe: 

Alle Tasten bewirken Rücksprung zum 
Menue. 


1.3.8. Schreiben: 
1) Anwahl: -8- 
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2) Funktion: Schreiben und Drucken 

4): A) Bildschirm wird gelöscht. 

B) Anzeige: 

Bei Verwendung des Kommas ‘, müs- 

sen die gesamten Textzeilen i in Anfüh- 
rungszeichen gesetzt werden.“ 

Weiter mit irgendeiner Taste 

©) Eingabe: 

Nach Drücken irgendeiner Taste wird 
Pos. 1.3.8 forgesetzt. 

D) Bildschirm wird gelöscht. 

E) Anzeige: 

# als letztes Zeichen ist unterstrei- 

chen. 

/ ist Menue 

? ist Ende der Eingabe 

F) Eingabe: 

Bei Verwendung von '#' als letztes 
Zeichen einer Textzeile, werden die 

vorhergehenden Zeichen beim Druk- 
ken unterstrichen. 

Bei '/ als erstes Zeichen erfolgt Ab- 
bruch und Rücksprung zum Menue. 
Bei '” als erstes Zeichen erfolgt Ab- 
bruch der Eingabe und sind die Einga- 
ben richtig wird ausgegeben. 

Bei '- "als erstes Zeichen wird um so- 
viele Pos. nach rechts tabuliert. wie - 
Blanc's - nachfolgen. 

Nach Eingabe einer Zeile erfolgt: 
Sind die Eingaben richtig? > V/N< 

G) -N- 
Eingabe der 
angefordert. 

- Alle anderen Tasten - 
Programmablauf‘wird fortgesetzt. 

H) Bildschirm wird gelöscht. 

T) Anzeige: 

Drucken/Menue/Lesen > D/M/L< 

J) Eingabe: 

-M- ist Menue. 

-L- ist Lesen des vorher geschrie- 
benen Textes. e 

- Alle anderen Tasten - Programmab- 
lauf wird fortgesetzt. 

K) Anzeige: 

Ausdruck mit Datum und Uhrzeit? 

> J/IN< 

L) Eingabe: £ 
-N- keine Datums und Zeitausgabe 

- Alle anderen Tasten - Datum und Zeit 
wird auf dem Drucker mit ausgegeben. 
M) Bildschirm wird gelöscht. 

N) Anzeige: 

Weiter/Menue> W/M< 

O) Eingabe: 
-W- Progr. 
ausgeführt. 
- Alle anderen Tasten - ist Menue 


Zeile wird erneut 


wird ab 1.3.8 erneut 


1.3.9 Druck-Kopf in Grundstellung: 

1) Anwahl: -9- 

2) Funktion: Kopf fährt in "Home- 
Position‘. 

3) Anzeige: Maske bleibt erhalten. 
Status "HOME. 

4) Fehler: wie 1.2 > 3< 
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1.3.10. Programmerklärung (HELP) 
1) Anwahl: -H- 
2) Funktion: 
Ende 

3) Anzeige: Help-Menue. 


Help oder Programm- 


Das Programm kann wie 
geladen werden: 

unter Cassetten-Basic SA 5510: 
LOAD"“ 
LOAD"DRUCK.VERSIONI.3" 


folgt 


unter Disk-Baisc 6510: 
LOAD"DRUCK.VERSION].3. 
LOAD"DRUCK.VERSIONI.3" 
RUN"DRUCK:VERSIONI.3 
RUN"DRUCK.VERSIONI.3" 


Zu den Cassettenoperationen: 

Bei LOAD"" wird das erstbeste Pro- 
gramm. das gefunden wird geladen. . 
Bei LOAD"DRUCK.VERSIONI.3” 
wird solange auf der Cassette gesucht, 
bis das Programm mit dem Namen 
"DRUCK.VERSIONI.3" gefunden 
wird. 


Zu den Disk-Operationen: 

Mit LOAD"DRUCK.VERSIONI.3" 
wird das Programm normal geladen. 
Die abschließenden Anführungs- 
zeichen können entfallen. 

Mit RUN"DRUCK.VERSION]1.3” wird 
das Programm geladen und anschlie- 
Bend sofort ausgeführt. 

Die abschließenden Anführungs- 
zeichen können entfallen. 


Variablenliste: 

A$: Tastaturabfrage 

D$: Eingabe Datum 

G$: Aktuelles Datum 

T$: Wochentag 

Z1$-Z4$: Sortiertes Datum 
S$: Eingegebener Text 
U1$-U4$: Aufbau Zeit 
Z5$-Z8$: Sortierte Zeit 
DD$: Summe Datum 

TI$: Aktuelle Zeit 

MNS$: Eingabe Druckmodus 
TT$: Summe Wochentag 
UU$: Darstellung Digitaluhr 
ZZ$: Summe Zeit 

I: Laufvariable 

I1: Laufvariable 

J: Laufvariable 

JJ: Laufvariable 

L: Laufvariable 

M: Laufvariable 

P. Laufvariable 

MM: Laufvariable 

Q: Sprungziel 

Q5: HOME-Position 

06: Drucker nominieren 
Q7: Neues Blatt 

Q8: Drucker ein - 


-Q9: Ausdruck mit/ohne Datum 


_QQ: Druckerstatus ein/aus 


CU: Cursiv-Schrift 

NN: Druck-Modus 

X: Hilfvariable schreiben 
N: Steuercodes für Drucker 
LL: Zeilen vor/zurück. 


Beschreibung des Listings: 

7-30: Programmkopf 

36-70: Kanäle zur Drucksteuerung, 
(Steuercodes zum Drucker), 

100-190: Eingabe des Wochentages, 
200-280: Eingabe des Datums, 
300-377: Eingabe der Zeit, 

400-430: Digitaluhr wird aufgebaut. 
500-590: Eingabewiederholungsmög- 
lichkeit, falls die Daten nicht richtig 
waren, die eingegeben wurden. 
600-690: Menue mit Digitaluhr, 
700-790: Verzweigung zu den einzel- 
nen Programmbausteinen. 

4000-4090: Wartet auf TER HOHER. 
dann weiter im Programm, 

(Lese (Warte) Schleife). 

5000-5070: Fehleranzeige. 

6000-6030: Drucker einschalten, 
7000-7030: Drucker ausschalten, 
8000-8076: Einstellen Druckmodus. 
8077-8090: Einstellen Cursivschrift, 
8095-8100: Anzeige falsche Eingabe, 
9000-9030: Drucker wird nominiert. 
10000-10140: Neues Blatt wird ange- 
fahren (bis zur nächsten Abreißkarte). 
11000-11030: Druckerkopf fährt in 
Home- (Grund-) Position. 
12000-12090: Die eingegebene Anzahl 
Zeilen wird zurückgefahren. 
13000-13720: Schreib-Routine: 

Es kann außer Unterstreichen auch ta- 
buliert werden. 

Dafür läßt man einfach das erste An- 
forderungszeichen stehen und setzt da- 
nach für jede Stelle. um die der Text 
nach rechts soll ein Space (Blank) 
ein. 

15000-15060: Ende Routine, 
17000-17090: Die eingegebene Anzahl 
Zeilen wird vorgefahren. 

22000-22030: Test auf Drucker ein, 
25000-25200: Help-Menue und Mög- 
lichkeit, das Programm zu beenden. 
25500: Titel (HELP) 

25600-25770: Abfrage auf weiter oder 
Menue (bei Status Variable). 
32500-32700: Beschreibung Help- 
Routine l. 
33000-33200: 
Routine 2. 
33500-33700: Beschreibung Help-Rou- 
tine 3, 
34000-34200: 
Routine 4. 
34500-34700: Beschreibung Help-Rou- 
tine 5. 
35000-35200: 
Rountine 6, 
35500-35700: 


Beschreibung Help- 


Beschreibung Help- 


Beschreibung Help- 


Beschreibung Help- 
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CPU-Utility= 


F 


7 REM INITIRLISIERUNG DES - EFSON FX 80. - MIT DEM - SHARP MZ 80 A - 
17 REM KRERRRRRRRKHKH EEK N ERKKERK 
20 REM *% 2 *% F 
**  COPIRIGHT 1984 xx Routine 7, 
N, ** . 36000-36200: Beschreibung Help- 
** SIEGFRIED SCHLAAK ** Routine 8. 
a ++ VERSION 1.5 ++ *%* 37000-37200: Beschreibung Help- 
ee Routine 9. 
a 37500-37700: Beschreibung Help-Rou- 
2 FEED-FRINT A tine H (HELP). 
CLR:DIMS# (6) 38000-43130: Beschreibung Help- 


8070100 Routine V (Variable Status wird 
REM RR ERREREIERIIIHIIIEIEE RE E angezeigt). 


REM RR EEE ERE RE 
REM STEUERCODES 
OUTS2S5,N 
QUTS254,128 
OUTS254,0 
RETURN 
100 REM ee 
101 REM OR EEREEEEEERR 
104 REM WOCHENTAG: Q=1 
105 CURSORO , 5: FRINTSFACEF (40) : CURSORO,S 
TTt="" 
FRINT"WOCHENTAG DD "3 
DIMT£(2) x 
FORI=iTO2 
GETTE(I)SIFTFCI)=""THEN125 
FRINTT#(TD3 
IFATECI)SCHRE (65) ) + TE (I) >CHRE (83) ) GOSUBSO00: 6OTO1OS 
TTE=TTE+TE(I) 2 
FORI1=1T0100 


"DI")+TTEE"MI")+TTE="DO") THENI60 
SR") +ATTES"SAN)+ATTE="SO") THEN16O 
GOSUBS000: GOT0105 
IFTT$="MO" THENTTF="MONTAG" 


="SO"THENTTF= 
REM RHEIN 
REM RR 
REM DATUM 
CURSORO ,7: FRINTSFACES$ (40) : CURSORO,7 
DD+="" 
FRINT"DATUM >DDMMJJ« “ 
DIMDE (&) 
FORI=1T06& 
GETDE (I) : IFDE(I)=""THEN22S 
FRINTDE (TI); 
IF(DE(I HR& (48) ) + (DE (I) >CHR& (57) ) GOSURSO00: G0T0205 
DDE=DDE+DE (I) 
FORI1=1T0100: NEXTI1,I 


IGHT$ (DDE,4) 
EFT£(Z2$,2) 
IGHT& (DD# ,2) 
AL(ZEE) 
3) + (Z3=05) + (23=07) + (Z3=08) + (Z3=08) + (Z3=10) + (Z3=12) THEN264 


IF(ZI<O)+(Z ) THEN280 

IF(Z3=04) +6 Ir Z3=EO) + 11) THEN267 
IF(Zi ) THEN28O 

IF(Z3=0 

IFVAL(Z4E) 

DD IFt, 

GOTOFOO 

GOSUBSOOO: GOTOZOS 

REM KHK RE RER HERE K 
REM RRRRERERERERERERERER EHER 
REMZZEILT; 

CURSORO ,9: FRINTSFACEE (40) : CURSORO, 97 
ZZs=" N 

FRINT"ZEIT SHHMMSSE , "5 
DIMZEF (6) 
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FORI=1T06 

GETZE# (I): IFZE$(I)=""THENS2S 

FRINTZEE (I); 410 U2#=RIGHT&(TI#,4) 

IF (ZES CT) SCHRS (AB) ) + CZECH) SCHRE (57) )GOSUBSO00:GOTOS0S 415 USS-LEFTS(U24,2) 

Z7#=Z2Z#+ZE# (I) 420 U4&=RIGHT$ (TI#,2) 
FORI1=1T0100:NEXTI1,1 425 UUF=U1$+". "+UTSH" "+HU4E 
Z5#=LEFT#(ZZ#,2) 430 RETURN 

ZöF=RIGHTF(ZZF,4) £ 500 REM RRRRKRRERRERERE EEE 
27%=LEFT#(76$,2) 01 REM HRBRRSRSSRBRRRRRRRRIH 
ZB+=RIGHT$ (ZZ#,2) 504 REM RICHTIG ? 


IF(VAL(ZS#) SO) + (VAL(ZS$#) >=24) THEN 3 505 CURSORO, 22: FRINTSPACE$ (40) :CURSORO, 


IF (VAL (Z7£)£O) + (VAL (Z7$) >=60) THEN 3 FRINT"SIND DIE ee RICHTIG ? N 
. E = 2 SR 

IF (VAL (ZB$) <0) + (VAL (ZB#) >=60) THEN 3 BETA$: IFAg=""THENS i 

SJIer #bDE E IF(A$="N")*(Q=1) ae 

TI#=77#: GOSUBS00: GOTO600 IF(AS="N")x* (Q=4) THEN13010 

GOSUBS000: SOTOZOS RETURN 


ERKRRKRRKIKERKRRRTIIEERER: 5 CURSORO , 22: PRINTSFACE$ (40) RETURN 
ERRRKIIIITTIIIIH IE RER 


REMIS 
UHR REM BSR 


REM MENUE R 
LEFT£(TI$#,2) 


FRINTCHR& (22) 
FRINT" +++ +H+H+ Hr + +++ VERSION 1.2 Btrttttttttt" : CURSORO,Z 
PRINTCHR&$ (239) } : FORI=1T036: PRINTCHR& (195) 3 :NEXTI=PRINTCHRE (240) 
FRINTCHR$ (197) 5 6$: FRINTCHR& (18) 3 TAR (32) 5 "UHR" 3 TAB (37) ECHR& (199) 
FRINTCHR& (236) } : FORI=1T028: FRINTCHR$ (196) 5 :NEXT= PRINT" ";CHR# (199) 
FORI=5T020 
CURSOR29, I: PRINTEHRS& (197); " ";CHR& (199) 
NEXT: CURSORO, 19 
PRINTCHR$ (239) }: FORI=1T028: FRINTCHR& (195) 3 :NEXTI:FRINT" 
FRINT CHR£(197);"*%* COPYRIGHT (C) BY SCHLAAK-SOFT xx" 
FRINTCHR& (236) 5; : FORI=1 T036: PRINTCHR$ (196 EXTI:FRINTCHRE (218) 
IF@@=1THENCURSOR28 ‚8: PRINT"< "3 TAB(30) 3 "--EIN" »CURSORO, 5: 6010633 
CURSOR28, 9: FRINT"< "3 TAB(30) 4 "AUS" 
CURSOR28 , 10: PRINT" "3 TABA30) , "--" 3". "3: FORI=1T05: PRINTCHR& (20) 5 :NEXTI:F 
| RINTNN 
634 IFCU=1THENCURSORS6 , 10: PRINT"C" 
IFQ5=1THENCURSOR2B , 16: FRINT"£"} TAB (30) 3 "HOME" 
IFQ6=1THENCURSORZ2B , 11: PRINT" "3 TABCZO) 3 "--NOM" 
GOSURLOLOO 
CURSORO „4: FRINTCHR& (17) 5 CHR$ (17) 3 "MENUE-> BITTE WAEHLEN SIE ı" 
PRINTCHR# (17) } "DRUCKER... „EIN 
FRINT" DRUCKER, 2 5010 FORI=1T03 
5 PRINT" DRUCKMODUS 3 5020 =1:FRINT"FALSCHE EINGABE"; 
FRINT"NOMINIEREN 3 5040 EXTM 
55 PRINT"NEUES: 444. . BLATT- 5050 CURSORO ‚24-1: PRINTSFACE$ (40) 
FRINT"BLATT. ... . VOR=—— 5055 FORM=1T0150:NEXTM 
FRINT"ELATT. . „ ZURUECK- : 5060 NEXTI 


FRINT"SCHREIBEN---—-— 5070 RETURN 
FRINT"HOME ..POS. &O0OO REM KRRRRERERERER EEE 


FRINT"HELF- = = 2 6001 REM EKSSBRRRHISSBRIRIIIIE 
BETA$: CURSOR21 ‚3: G0SUB405: PRINTUU$: IFA$=""THENG90 6005 REM DR.EIN:OB=1 
REM SSH 6010 
REM RR 6020 CURSOR2B,9:PRINT" "ZTAR(Z0)5" 
REM VERGL. MENUE 8030 GOTOASE1 
ne 1"THENG000 7000. REM EBESERSHEEIEIII I IEE 
2"THEN7000 7001 REM HRS 
3" THENSOOO REM DR. AUS: Q6=0: 08=0 
3 0Q=0:N=19:G60SUB40 
4" THENIO0O 
IFA$="S"THENT0000 CURSOR28,8: PRINT" ";TAB(30) 5; " 
$="9"THEN11000 DER 
8000 REM 3ERSSRRRRRHIRRIIIIEER 
3000 8001. REM RRSSWRHRSRRRRRSRRBRRRRRE 
H" THEN25000 8004 REM DR.MODUS: Q6=0 
"&"THENI 7000 8005 IFOB=060SUE22000:60T0600 
8010 FRINTCHR#& (22) 
GOSUESOO0: GOTDA9IO 8020 FRINT"IN WELCHEN MODUS WOLLEN SIE ARBEITEN ?" 
4000 REM HBRRRRRRRRRRRRIRR 8022 FRINTCHRE (17) ZCHRE(1TI 5" / IST MENUE" 
4002 REM BSR 8026 IFA$="/"THENd00 
4005 REM WEITER ? 8030 FRINT:FRINT 
4010 CURSORO,22 8040 INFUT"MODUS-NR. =: "3MN$ 
4020 FRINT"WEITER MIT IRGEND EINER TASTE" 8041 IEMN$="/"THENGOO 
4025 GETA$: IFA$=""THENA4025 8045 IFLEN (MN#) >ZTHENSLOO 
4055 IFQ=4THENI13010 8047 DIMMN& (2) 
4090 GOTOA05 8048 MN&(1)=LEFTF(MN$,1) 
5000 REM ERBRSSHRRERRHRRRRHRRSRIREE 8047 MN& (2) =RIGHTS (MN$,1) 
5001 REM RBB 8050 FORMM=1TO2 
5004 REM FEHLER 8055 IF (MN# (MM) <CHRE (48) ) + (MN& (MM) >CHR& (57) ) THENB10O 
5008 MUSIC"ARBCDEFG" 8057 NEXTMM 


Dezember 1984 5 CPU 35 


) THENBO9S 
I + (N=7)+(N=8) THEN8095 
IF N=20THEN8095 
> FRINT/FCHRE (97) 3," "3: G0SUR40 
FORI=1T04: PRINTCHRE (17) :NEXTI 
FRINT"CURSIV-SCHRIFT SI/NE" 
GETA2 Fa THEN8078 
8079 IFA "I" THENCU=1: FRINT/FCHRE (97) 4 "4"3:60T08090 
8080 FRINT/PCHR& (97), "5" 5: CU=0 
8090 0=20:560T0505 
8095 FRINT:FRINTSFRINT"FALSCHER DRUCKMODUS" 
8100 GOSUBSOO0GOTIBOLO 
GOOD REM RKRKRRKRRRERERRÄKERERRRRK ER RE 
REM ERRREEEEIERERE RE KRR 10001 REM KERKERKRRKRKERKEEREREREKKNKR 
10004 REM NEUES ELATT 
7: SUB ESDRDN SENT :0:00=1:0 10005 I1F08=0G60SUB22000: G0T0500 
1 7 10007 N=17: GOSUB40 
CURSOF i = H 100610 FRINT/FCHRE (100); 
CURSOR FR ; b 5 ‚u0= 10020 07=1 
GOTO&EE 10030 GOT0637 
00 REM BR 


10100 IFQ@7=1THENCURSOR2B, 12: FRINT" "5 TAB (30) 5 "--0 .K":GOTOIOLEO 

10110 RETURN 

10120 FORI=1T068000: NEXT 12005 IFQ8=0G60SUB22000: GOT06OO 

10130 CURSOR28,12:PRINT" "HTAB(30);" 06=0: PRINTCHRE (22) 

10140 .07=0: RETURN 020 FRINT"WIEVIELE ZEILEN RUECKWAERTS ?" 
11000. REM ERBE 5 FRINTCHR&E (17) 5CHR& (17) 3 "MAX 9 ZEILEN I ı" 
11001 REM RR 20% PRINTCHRS$ (17) ; CHR (17 ; "/ 15T MENUE" 
11004 REM HOME d GETA$: IFA$=""THEN12030 
11005 IFQ8=0G60SUE22000: GOTOA00 2035 IFA$="/"THENGOO 

11007 @6=0:N=17:60SUB40 - 12040 IF (AFÄCHRE (48) ) + (A$ CHR& (57) ) GOSURSO00: 601 2 
11010 FRINT/FCHRE& (97) 5, ""; 12045 LL=VAL (A#) : IFLL=OTHENA05 a DER a 
11020 o5=1 N 12050 FORM=1TOLL 

11030 GOT0635 12060 PRINT/PCHRE (97) 3 " 3" ;CCHR$ (36) 5 

12000 REM KRKERERIERER ER 12065 FORL=1T0200:NEXTL 

12001 REM KR IEEEEEEE R 12070 NEXT M 


12004 REM ZURUECK 12075 FORI=1T03: FRINTCHR& (17) :NEXTI 


12080 FRINT"** O0 K ** "sLL;" ZEILE(N) ZURUECKGEFAHREN" 
12090 GOTO4000 
13000 REM RR REEEREEEEEEEERER 
13001 REM RER EEE 
13004 REM SCHREIBEN: Q=4:Q09=0 
IFQ8=0605UB22000: 60T08500 
"BET VERWENDUNG DES KOMMAS (,„) MUESSEN" 
PRINTCHRS$ (17 REN LLORSDIE GESAMTEN TEXTZEILEN IN" 
PRINTCHRE& (17) 5CHRE (17) 5 "ANFUEHRUNGSZEICHEN GESETZT WERDEN": GOTO4000 
5 x%=97 
130530 FRINTCHR# (22) : 05=0: 06=0 
12041 FRINT"# (LETZTES ZEICHEN) IST UNTERSTREICHEN" 
153042 FRINT"/ IST MENUE" 
13043 PRINT"? IST ENDE":FRINTCHRE (17), "1234567890123456789012345678901 23456789" 
FORF=1T05 
CURSORO „F+X: FRINTSFACES (120) 188 (P) ="" 13090 PRINTCHRE (22) 


GOSUB1 3300: CURSORO ,F+X 13100 PRINT"DRUCKEN/MENUE/LESEN >D/M/L£" 
INFUT S#(P) 13110 GETA$: IFA$=""GOTO 13110 
IFLEFTE (SF (PP), 1) ="?"THEN13080 13125 IFA$="M"THENG=0:G60T0 600 
IFLEFTF (S# (P) „1)="/"THENG=0: B0T0600 13126 "L"’GOSURIF700:G60TO13110 
GOSUB1F600 13127 I1F09£ >OTHEN13140 

NEXTF 13128 CURSORO , 20 

GOSUBSOS 


FRINT"AUSDRUCE MIT DATUM UND UHRZEIT ? >J/N&":Q9=1 

GETAS: IFAF=""THEN1313O 

IFAF="N"THEN13140 

GOSURAOS:FRINT/FGEE" "3 UUF;" UHR"3:N=10: GOSUB40: N=10: GOSUR4O 
FORM=1TOF 

IF(LEFTE(SF(M) „,LI="P")HLEFTEISECM) ,1)=" ") THEN1E175 
IFRIGHTE (S#(M) „1 "THEN13158 

FRINT/FCHRE (97); CHRE (49), :SF(M)=LEFTF (SF (M) „LEN(SE(M))-1) 
IFLEFTE(SF(M) „LI ="-"THENSE(M)=" "+RIGHTE (SEM) „LEN(SF(M) I -1) 
FRINT/FSE (M) 

PRINT/FCHR& (97) 3" "3 CHRE& (48) ; 

NEXTM 

REM 

FRINTCHRE (22) 

FRINT"WEITER/MENUE 

GETAF: IFAF= 
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15000 
15001 
15004 
15005 
15010 
15020 
15025 
15030 
15050 
15060 
17000 
17001 
17004 
17005 
17010 
17020 
17026 
17027 
17030 


22016 


25060 
25070 
25080 
25090 
25100 


25150 
25160 
25180 


25640 
25650 
25660 
25670 
25680 
25690 
25700 
25710 
25720 
25730 
25740 
25750 
25760 
23765 
25770 
32500 
32504 
32505 
32510 
32520 
32530 
32700 
33000 
33004 
33005 


IFAt="W"THEN1EO1O 13610 FORI=1ITOLEN (S#(F)) 

@=0:60T0&00 15620 IFMID$ (S#(P),I,1)="-"THENIFMID$ (S$ (P) „I+1,1)="-"THEN13640 
J NEXT - 

FORI S+(P)=LEFTF(S#(P}) „I-1) 

J=I IFRIGHT$ (S# (F) „1)="#" THENS# (F)=LEFT$(S$(P) „LEN(SF(F))-1) +" 
IFI>Z9THENJJ=1 :J=J-40 7, REM 

CURSORJ „F+X+JJaFRINT"-"35 13650 X=X+1:RETURN 

NEXTI 

FRINT" 

RETURN 13700 CURSORO,10 

REM 13705 FORI=1TOF-1 


27077 


FRINTSE (I) 

NEXT: RETURN 

REM RR 17035 IFA$="/"THEN600 2 

REM ERRERREREREREEEEEREERRRRR 17040 IF (A$FÄCHRE (48) ) + (A#>CHRE (57) ) SOSURBSO000: G0TO17010 
REM ENDE 17045 N=10:LL=VAL (A#) : IFLL=OTHENS05 
FRINTCHR#$ (22) 17050 FORM=1TOLL 

CURSOR10,10 17080 GOSUB4O 

FRINT"ENDE DES FROGRAMMS" 17085 FORL=1TO100:NEXTL 

FORI=1T04: FRINTCHR# (17) :NEXTI 17070 NEXT M 

FRINT" EYE BYE" 17075 FORI=1T03:FRINTCHRS$ (17) :NEXTI 
FRINT:FRINT:FRINT:PRINT:FRINT 17080 PRINT"** OK ** ";5LL;" ZEILE(N) VORGEFAHREN" 
END 17090 GOTO4000 

REM BREITER 22000 REM HRRRREEIEE 
REM RER RER R 22001 REM RRRKRRERKERRERREKTKRKRKERKRERE 
REM VOR > 22002 REM DR.EIN? 

IFQ8=0605UB22000: GOTD500 22005 FRINTCHRFTZDIE"TACHTUNG ! 
@6=0: FRINTCHR# (22) 22010 MUSIC"ABCDEFGH" 

FRINT"WIEVIELE ZEILEN VORWAERTS ?" 

FRINTCHR&$ (17); CHR#$ (17) 5 "MAX 9.ZEILENHHN 

FRINTCHR& (17) 3; CHR$ (17)5”/ IST MENUE" 

BETAF: IFAF=""THENI1 7030 


FORI=1T05: FRINTCHR& (17): NEXTI 
FRINT"DRUCKER IST NICHT EING ESCHALTET" 
FORI=1 T0O2000: NEXT: RETURN 
REM RR ITIEEEE 
REM RER TIERE 
REM HELF-ENDE 
FRINTCHRE& (22) : GOSUR25500 
FRINT"WELCHE MENUE-NR. SOLL ERKLAERT WERDEN ?":FRINT:FRINTSFRINT 
FORI=1T09: PRINT" EN sI » NEXT 
er > H"SFRINT"-VARIABLEN-= V"EPRINT"-ENDE-----— 
"THEN2S070 


25190 IFA$="H"THENS7500 
25200 IFA$="V"THEN38000: GOSUBS000: GOT025070 
25500 PRINTCHR$(22)5"+ + HELP + +":PRINT:FRINT:RETURN 
25600 CURSORO,23: PRINT"WEITER ODER MENUE >W/M<";T=1 
25610 GETA$ ’ B 
\ Se 25620 IF@< >31THEN25720 
THENSS300 25630 IFI>6THENG=0: GOTO25620 
IFA$="8" THENS6000 
IFA$="9"THENS7000 


CURSOR21 ‚5: PRINTSPACE$ (10) :CURSOR21 „5: PRINTDS (I) 3 TABCSTIE" CHHSTRECDI ED" 
IFT>ZTHEN25670 

CURSOR21 ‚9: PRINTSPACE$ (10) : CURSORZ1 ,9: FRINTT$ CI) ETAB(STIE" CHHSTRECDIE") " 
1FI>STHEN25700 

CURSORO 21: FRINTSPACE$ (79) : CURSORO, 21: PRINTS$ (I) 

CURSOR37 ‚19: PRINT" ("3STRE(TIE")" 

1=1+1: FORZ=1TD1000: NEXT : 

Barseere 33010 FRINT"2) FUNKTION : DRUCKER WIRD SDFTWARE- 
TERSSSOTHENSETEN x PRINT" SEITIG AUSGESCHALTET": 
EHEUBZOS 030 FRINT"3) ANZEIGE : STATUS - DRUCKER AUS ":PRINT 
CURSOR2S,5: PRINTTI$ Su1Da209 

CURSOR23 ,93 PRINTUU$ ERDE 

TFASE""THENDS210 33504 PRINT"1) ANWAHL - 85." 

IFAS="M"THENZOS 33505 PRINT 

BETDER 33510 FRINT"2) FUNKTION : AUSWAHL DRUCKMODUS" : PRINT 
ken 33520 PRINT" (0 BIS EINSCHL.. 63 )"zPRINT 
PRENTEISSANWAHE 33530 PRINT"S) ANZEIGE : ANFORDERUNG EINER": FRINT 
PRINT 33540 PRINT" MODUS-NR. ZWISCHEN" :PRINT 


FRINT"2) FUNKTION : DRUCKER WIRD SOFTWARE-":FRINT 
PRINT" SEITIG EINGESCHALTET": PRINT 
FRINT"S) ANZEIGE : STATUS - DRUCKER EIN 
GOTO4000 > - 

355 ne er a 
GOSUR25500 Sn EN "PRINT 


PRINT"1) ANWAHL 2 == r 
ih 33570 PRINT" ANFORDERUNG >CURSIVE "SPRINT 


SESBO ERININ 0 0 nn "EPRINT 
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33700 GOTO4000 
4000 GOSUBZSS00 
4004 FRINT"1) ANWAHL 
3 FRINT 
FRINT"Z) FUNETION DRUCKER WIRD NOMINIERT" :FRINT 
340206 t GRUNDEINSTELLUNG )"=FRINT 
34030 ü ANZEIGE STATUS — DRUCKER -EIN -":FRINT 
34040 MODUS SENT ERENT: 
DRUCKER -NOM -":FRINT 
FRINT" KOFF HOME" 
GSOTDAO00 
GOSURZSS00 
FRINT"1) ANWAHL 
FRINT 
FRINT"Z2) FUNETION DRUCEER MACHT FORM-FEED":FRINT 
34520 FRINT" C BLATT WIRD BIS I "= PRINT 
34525 FRINT" € ZUR ABREISSKANTE I" PRINT 
34526 PRINT" ( VORGEFAHREN I"=PRINT 
=4530 FRINT"Z) ANZEIGE STATUS - BLATT  - OK -":PRINT 
34700 GOTO4000 
Bi GOSURZSSOO 
FRINT"1) ANWAHL 
FRINT 
FRINT"2) FUNKTION AUSGABE LINE-FEED":FRINT 
FRINT" y (VORSCHUE UM —N- FOS )":PRINT 
FRINT"3) ANZEIGE ANFORDERUNG EINER": FRINT 
PRINT" ZAHL. ZWISCHEN 1 UND 9":FRINT 
GOTO40OO 
GOSUB2S500 
FRINT"1) ANWAHL. ze 
FRINT 
FRINT"2) FUNKTION AUSGABE LINE-BACK-FEED":FRINT 
FRINT (RUECKSCHUB UM -N-POS) ":FRINT 


PRINT 


;@8: PRINT 
";QQLIST42020-42030 
"CU 


[e)#} 


550 


FRINT"WEITER MIT IRGEND EINER TASTE" 


IFAF=""THEN43120 


GOTO605 


:G0OSUR?! 
CURSIV-SCHRIFT 
DRUCH-MODUS 


FRINT ANZEIGE ANFORDERUNG EINER" = FRINT 
PRINT ZAHL ZWISCHEN 1 UND 9": PRINT 
GOTD4000 

GOSUB2SS00 

FRINT"1) ANWAHL 


ONTR.-VARIABLE 


HILFS-VARIABLE 

STEUER-CODE 

1705: PRINTCHRE (17) :NEXTI 
FRINT"VARIABLEN-LISTING-ENDE 


FRINT 
GETAF 


FRINT 
FRINT"2) FUNKTION SCHREIBEN "zFRINT 
FRINT" (TEXTAUSG. AUF DRUCKER) "= PRINT 
FRINT"S) "ANZEIGE ANFORDERUNG EINES": PRINT 
FRINT" TEXTES ODER DATEN UND":FRINT 
FRINT" ANSCHLIESSENDE AUSGABE": FRINT 
36070 PRINT" AUF DEM EFSON FX 80":PRINT 
36200 GOTO4000 
37000 GOSUB2SF00 
04 FRINT"1) ANWAHL Bey 
FRINT 
FRINT"2) FUNKTION DRUCKER MACHT HOME ":FRINT 
PRINT" X DRUCKER-KOFF FAEHRT )":FPRINT 
FRINT" t IN GRUNDSTELLUNG I"sFRINT 
FRINT"?) ANZEIGE STATUS - KOPF -HOME-": PRINT 
GOTO4000 
GOSURZS500 
FRINT"1) ANWAHL Zune he 
ı FRINT 
FRINT"2) FUNKTION HELF "PRINT 
PRINT” ( FROGRAMMERELAERUNG )":FRINT 
FRINT": ANZEIGE HEERSZEMENIE ":FRINT 
SOTO4000 
GOSUR2ZIS0O0 
FRINT"TASTATUR-AEFRAGE A 
FRINT"DATUM 
FRINT"DATUM-AETUELL 
FRINT"WOCHENTAG £ 
FRINT"SORT.DATUM ; ZI&:FRINT 
FRINT"SORT.DATUM ";Z2&: PRINT 
FRINT"SORT. DATUM 3 "; ZE#: PRINT 
FRINT"SORT . DATUM "; Z4£: PRINT 
FRINT"TEXT E ee == Ze 
FRINT" ; CHRE (16) :FRINT 
GOSUB2Z5&00: GOSUR2FI0O 
FRINT"AUFBAU AKT.ZEIT #: Li :PRINT:Q=0 
FRINT"AUFBAU AKT.ZEIT 3 sV2# :FRINT 
FRINT"AUFBAU AET.ZEIT RE 3#$ :FRINT 
FRINT"AUFBAU AKT. ZEIT E : » FRINT 
FRINT"SORT.ZEITEING. #: ";ZS#E:FRINT 
FRINT"SORT. ZEITEING. E "3; Z6#:FRINT 
FRINT"SORT.ZEITEING. £ "3727£: PRINT 
FRINT"SORT.ZEITEING. "78% 


30 


60 FRINT"KONTR.-VARIABLE 


0970 FORI 


{6} 


3110 CURSORO,22 


3030 FRINT 


3 
3 


3 


42075 FRINT"KONTR. -VARIABLE 
42080 FRINT"KONTR.-VARIABLE 


42100 GOSUB25600 
43000 PRINT 


42070 'FRINT”E 
43005 FRINT 


43010 FRINT 


43020 
43100 


42 
4 

4 

4 
43120 
431 


o=0 
a=0 


FRINT 
FRINT 


DD: 

TI$: 
TT$:PRINT 
;UU$: PRINT 
; IzFRINT 
;MM 

;@ zFRINT 
B5:FRINT 


„ TIs 
TT$ 
UUF 


DIGI.UHR 
GOSUR2SS00 


FRINT"KONTR. VARIABLE 


[e) 
ONTR. -VARIAELE 


SUMME DATUM 
ZEIT AKTUELL 
SUMME WOCHENTAG 
DARST. 

ZEIT SUMME 
LAUF-VARIABLE 
LAUF-VARIABLE 
LAUF-VARIABLE 
LAUF-VARIABLE 
LAUF-VARIABLE 
LAUF-VARIABLE 
Seo! 
KONTR.-VARIABLE 


GOSUB25600: GOSUB2SS00 


FRINT 
40030. FRINT 


40040 
40050 


FRINT 
PRINT 


40070 FRINT 
FRINT 


30 FRINT 


40100 GOSURB2S600: GOSUR2SSOO0 
3 


41010 PRINT 
42040 FRIN 
42050 FRINT 


41020 


410 
41040 FRINT 


41050 FRINT 


41060 PRINT 
41100 GOSUR 


42010 
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_% Wicobert für den Spectrum 16/48K + 
ak % Meistern Sie mit Ihren sieben Leben die = 
*+ 7x7-Pyramiden. an 
+ % 100% Maschinensprache. Super-Arcade. + 
e See he 19,50 DM * 
von R.G. Hülsmann + * 
wi ;K * 
Das Super-Tool! mar > * Die Befreiung Miriams für den Spectrum 48K *\ 
Das zur Zeit schnellste Integerbasic für :4——% Ein Abenteuerspiel in deutscher Sprache. Mit toller Grafik. $_ 
den Spectrum, das die Programmierung „ x Befreien Sie die Prinzessin aus den Händen Ihrer + 
dieses hervorragenden Computers noch ” neacher) % 
einfacher und übersichtlicher macht. 8 24,- DM + 
RGH-BASIC ist besonders geeignet für Spiele, + « * 
die nur Integers benötigen. Spezialbefehle Wk N 
VSTSLDINCHENJOIEHBEOEIATUTT TUNG x Die goldene Stadt für den Spectrum 48K % 
Die. hohe Geschwindigkeit wird durch die + Ein weiteres deutschsprachiges Grafik-Abenteuerspiel. 
Beschränkung auf Integers und durch die x ” 
Verwendung von Spezialbefehlen erreicht! * 25,- DM * 
+ wre A  ıH r a 
Mit ausführlichem deutschen Handbuch, mit 12 mn tn22 = - - - - - - - Fe 


Programmen zum Eintippen, Platinenplan, 
Microdrive-Kompatibel. 


NurDM79-  : 


TRINKEN 
* Weitere Programme für Spectrum, VC-20 und C-64 5; 


* in Kürze. 


* Ab Dezember auch Software für den * 
+ Schneider Computer lieferbar! + 
KUNA YNX 


“Abtrennen und absenden an: 
WICOSOFT, Christian Widuch, 
Nordstraße 22, 3443 Herleshausen 


Bitte liefern Sie 
© per Nachnahme (zzgl. Gebühren) 
© per Vorkasse bzw. Scheck 


Anzahl 


Artikelbezeichnung Preis 


Name: .. 


Adresse: 


CPU -P oo ck 


Einführung in 
SHARP-Basic 
mit dem PC-1251 


Neben Heim- und Personalcomputern erfreuen 


sich die ”Pockets’” zunehmender Beliebtheit - 


und das, wie ich glaube, zu recht. Ein wesent- 
licher Aspekt in der Computerei ist die 
Mobilität: Was nutzt mir die leistungs- 
fähigste EDV-Anlage, wenn ich sie 
nicht dort haben kann, wo ich sie 


brauche? 


Obin.derSchule, am Arbeits- 
platz, bei sportlichen Veran- 
staltungen: der Heimcom- 
puter muß passen - nicht 
hingegen der Taschencom- 
puter. 

Sicher die Handlichkeit hat 
ihren Preis! Ein monochro- 
mes LCD-Display ist kein 
Ersatz für einen Bildschirm. 
Und von 48 oder 64 Kilobyte 
im Arbeitsspeicher dürfen 
Pocket-Besitzer lediglich träu- 
men. Ist man jedoch bereit, 
auf umfangreiche Graphik 
zu verzichten, so wird man 
erleben, daß sich mit den 
"wenigen Bytes” des Ta- 
schencomputers eine Menge 
anfangen läßt. Schließlich ist 
es vor allem die Bildschirm- 
Graphik, die sehr viel 
Speicherplatz belegt; wo sie 
entfällt,kann selbstein einzi- 
ges Kilobyte sehr viel ermög- 
lichen. 


Ist  Taschencomputer 
nicht ° gleichbedeutend 
mit ” Taschenrechner”? 


Was viele potentielle Interes- 
senten beim ”Pocket” ab- 
schreckt, ist die rein optische 

Ähnlichkeit zum guten alten 
Taschenrechner. Und diese 
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Ähnlichkeit, sprich: die ge- 
ringe Größe, ist es auch. was 
manchen glauben läßt, der 
Taschencomputer könne 
nicht viel. Was also einerseits 
als zukunftsweisend gerade im 
Bereich der Elektronik gilt, 
die Miniaturisierung, steht 
einer breiten Annahme des 
"Pocket" im Wege. 

Dazu kommt in der Tat, daß 
sich der Taschen-Computer 
aus dem Taschen-Rechner 
von einst entwickelt hat. Die 
Organisation seines Innenle- 
bens jedoch hat mit dem 
”Rechner” nicht mehr viel 
gemein. 


Warum ausgerechnet 
der PC-1251 von Sharp? 


Pocket-Computer werden 
von. mehreren Herstellern 
angeboten. Auf dem deut- 
schen, österreichischen und 
schweizer Markt spielen je- 
doch lediglich die Marken 
Casio und Sharp eine Rolle, 
wobei der-Sharp-Corporation 
zweifelsohne die Rolle der 
Marktführerin zukommt. 

Im Sommer 1980 brachte 
Sharp den ersten Pocket- 
computer der Welt. den PC- 
1210, heraus: ein 8K-Basic 


und eine 4bit-Architektur 
wurden damals als Meilen- 
stein in der Entwicklung der 
Mikro-Elektronik gefeiert. 
400 Bytes (=Programmschrit- 
te) waren allerdings noch 
zu wenig, um eine ernsthafte 
Alternative zum Mikrocom- 
puter darstellen zu können. 
Als 1981 dann der 8-Biter 
PC-1500 erschien, konnte die 
Gattung "Pocketcomputer” 
mit 24K-Basic und 1850 
Bytes freiem RAM aufwarten, 
wobei letzterer durch Steck- 
module auf 10042 Bytes er- 
weitert werden konnte. 

Im Spätherbst 1982 folgte 
dann der PC-1251 mit 8bit- 
CPU, 24K-Basic und 4,.2K- 
RAM (frei 3486 Bytes/nicht 
zu erweitern). 

Faszinierend war nicht nur 
der Programmierkomfort, 
phantastisch waren auch die 
Maße: 135 x 70 x 9,5mm (!). 
Das waren echte Taschen- 
rechner-Dimensionen, je- 
doch mit der Leistung eines 
vollwertigen Computers. 
Auf dem PC-1251 bauten in 
der Folgezeit noch weitere 
Modelle auf: 

- PC-1245 (24K-Basic, 2.2K- 
RAM, LCD 16-stellig 

- PC-1401 (40K-Basic, 4.2K- 
RAM, LCD 16-stellig 


- PC-1261 (40K-Basic, 4. 
RAM. LCD 2x24-stellig 
wodurch die hier vorliegende 
"Basic-Einführung” (mit 
kleinen Einschränkungen) 
auch für Besitzer der ande- 
ren Rechner gültig ist. 


Was taugt ein Pocket- 
Basic? 


Die mehrteilige Einführung 
in die Basic-Programmie- 
rungdes 1251 wird Ihnen den 
gesamten Sprachumfang 
vermitteln. Für diejenigen 
Leser aber, die einen Heim- 
oder Personalcomputer be- 
sitzen und somit in der Lage 
sind, die Qualität einer 
Basic-Version zu beurteilen, 
bringe ich nachfolgend eine 
Liste sämtlicher Basic-Be- 
fehle des PC-1251. 


Funktionen 

ABS, ACS, AND, ASC; ASN, 
ATN, CHR$, COS, DEG, 
DMS, EXP, INKEY$, INT, 
LEFT$, LEN, LOG: LN, 
MEM, MID$, NOT; OR; PI, 
RIGHT$, RND, SGN, SIN, 
SQR, STR$, TAN, VAL, 
EXP. 
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Anweisungen: 

AREAD, BEEP, CLEAR, 
CONT, DATA, DEGREE, 
DIM, END, FOR, GOSUB, 
GOTO, GRAD, IF, INPUT, 
LET, LIST, NEXT, NEW, 
ON PASS, PAUSE, 
PRINT, RADIAN, RAN- 
DOM, READ, REM, RE- 
STORE, RETURN, RUN, 
STOP, THEN, TRON, 
TROFF, USING, WAIT. 


Peripherie-Ansteuerung: 

CHAIN, CLOAD, CLOAD?, 
CSAVE, INPUT#, LLIST, 
LPRINT, MERGE, PRINT# 


Anmerkung: Nicht genannt 
sind die Schleifenbefehle TO 
und STEP, die selbstver- 
ständlich in Verbindung mit 
FOR und NEXT verwandt 
werden können. Ebenso un- 
erwähnt bleiben die Befehle 
PEEK. POKE und CALL, 
die vom PC-1251 sehrwohl 
verstanden werden, jedoch 
keine "echten" Basic-Befehle 
sind. 


Der Aufbau des PC- 
1251 


Wie für jeden echten Mi- 
krocomputer, so gilt zu- 
nächst einmal auch für den 
Pocket-Computer 1251 der 
folgende logische Aufbau: 


NEE 


Eine genauere Spezifizie- 
rung durch Angabe von 
Kontroll- und Data-Bus so- 
wie /O-Ports braucht für un- 
sere Zwecke nicht zu erfol- 
gen :und würde lediglich 
verwirren. 

Der "Taktgeber”, ein Quarz 
wie in Ihrer Armbanduhr. ist 
für die CPU (central proces- 
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sing unit / Zentrale Rechen- 
einheit) dasselbe, was für 
den Musiker das Metronom 
ist: er gibt ihr einen festen 
Bezugspunkt für die zeitliche 
Abfolge der internen Funk- 
tionen. Die CPU selbst, auch 
Prozessor genannt, leistet die 
eigentliche Arbeit im Com- 
puter. Sie enthält die ALU 
(arithmetical logical unit/ 
Arithmetik-Logik-Einheit), 
die für alle Rechen-Opera- 
tionen verantwortlich ist, so- 
wie verschiedene Register 
zum Zwischenlagern von 
Werten. 

Das ROM (read-only-me- 
mory / Nur-Lese-Speicher) 
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ADRESSBUS 


KR EEEREEEKEEEEEEEER 


x TASTATUR > 
< DISPLAY > 


enthält Informationen, die 
der Hersteller dem jeweili- 
gen Computer. mitgegeben 
hat: so den Interpreter (Dol- 
metscher). der die einzelnen 
Basic-Anweisungen in Ma- 
schinensprache übersetzt, aber 
auch die . Basic-Version 
selbst. Beim PC-1251 gibt es 
zwei getrennte ROM-Chips, 
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von denen der eine 8 Kilo- 
byte Kapazität aufweist und 
den Interpreter enthält, der 
andere mit 16 K das Basic 
selbst liefert. Das RAM (ran- 
dom äccess memory /Spei- 
cher für wahlweisen Zugriff) 
ist für die meisten Computer- 
Fans am interessantesten, 
weil man da seine Pro- 
gramme hineinschreiben 
kann. Der PC-1251 enthält 
zwei RAM-Chips a 2,1 Kilo- 
byte (beim "kleinen Bruder” 
1245 fehlt einer dieser 
Speicherblöcke) 


* 
x 
x 
x 
x 


“ 


Der Adreßbus von 16 bit 
Breite kann bis zu 64 Kilo- 
byte adressieren und stellt 
die Kommunikationsebene 
zwischen CPU, ROM. RAM 
und I/O-Interface dar. 

Die letztgenannte Schnitt- 
stelle wiederrum regelt In- 
und Output, d.h. den Da- 
tentransfer von der Tastatur 
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zur CPU bzw. von der CPU 
zum LCD-Display. 
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DIAS WAERE ES 
FUER HEUTE : 


ALSO 


IM ZWEITEN TEIL 
UNSERER EINFUEHRUNG 
IN DAS 

SHARP-BASIC AUF DEM 
PC 1251 

(MIT INTERF. CE-125) 
WERDEN WIR UNS 
EINGEHEND MIT DEN 
BEFEHLEN BESCHAEFTI= 
GEN UND DIE GATTUNG 
TASCHEN-CUMPUTER 
ANHAND. KLEINER 
PRÜGRAMME NAEHER 
UNTER DIE LUPE 
NEHMEN ... 
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Datenbanksysteme jetzt auch für Mikros 
Heimcomputer bald private Großrechner? 


Wir wollen uns ‚heute einmal 
mit den Themen ’Data-Pool 
und Kleinrechner’ bzw. ’Heim- 
computer und Datenbank- 
Organisation’ beschäftigen, 
Fragen, die bis vor kurzem ein 
Gegensatz in sich zu sein schie- 
nen. Da die Leistungsfähig- 
keit moderner Kleinrechner in 
letzter Zeit aber enorm gestie- 
gen ist, gewinnt der hier be- 
sprochene Problemkreis mehr 
und mehr an Bedeutung. Und 
dies um so mehr, als einerseits 
die Schlagworte "Datenschutz 
und Dateizugriff durch jeder- 
mann’ in aller Munde sind, 
zum anderen der Begriff der 
Datenverarbeitung mit dem 
Computer schlichtweg als Sy- 
nonym für die Arbeit mit Rech- 
nern gilt. 


Da aber auf diesem Gebiet 
die verschiedensten Begriffe 
kursieren und häufig durch- 
einander geworfen werden, 
sind zwei Klärungen zu Be- 
ginn nötig. 

Erstens ist die Datenverar- 
beitungan sich nichts Neues: 
Der ägyptische Lagerver- 
walter im zweiten Jahrtau- 
send vor Christus, der seine 
Bestandsaufnahme auf eine 
Papyrusrolle kritzelte, be- 
trieb nichts anderes als Da- 
tenverarbeitung Und der 
Mönch des späten achten 
Jahrhunderts, der im Kloster 
Sankt Gallen die Zahl seiner 
Handschriften registrierte, 
kam ebenso ohne Daten- 
bank in Form von Perga- 
mentlisten nicht aus. 

Und so ist also auch nicht die 
Existenz von Dateien Anlaß 
zu erregten Kontroversen un- 
serer Tage, sondern vielmehr 
die Tatsache, daß heute ein 
wesentlich schnellerer Zu- 
griff möglich ist. Wenn ein 
spätmittelalterlicher Kauf- 
mann bestimmte _Infor- 
mationen über Geschäfts- 
partner benötigte, so mußte 
er seine Buchhalter anwei- 
sen, in den dicken Folianten 
des Kontors umständlich zu 
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suchen. Das brauchte Zeit 
und vergeudete wertvolle Ar- 
beitskraft, die einer solchen 
"Datei-Abfrage” nur in den 
dringlichsten Fällen geopfert 
wurde. 

Heute, im Zeitalter der Com- 
puter, können Informatio- 
nen jedoch in Sekunden- 
bruchteilen verfügbar sein. 
Nicht ein einziger Mitarbeiter 
muß bemüht werden, wenn 
der Chefeiner Firma die eine 
oder andere Auskunft 
wünscht: Zwei, drei Knopf- 
drucke am Bildschirmgerät 
seines Schreibtisches - und 
die verschiedensten Infor- 
mationen liegen vor. Der 
zweite Punkt, den wir abklä- 
ren müssen, betrifft den Um- 
gang mit dem Wort "Datum" 
bzw. seiner Mehrzahl 
"Data”. 

Jeder von uns hat sicher 
schon mal eine Data-Zeile 
im Basicprogramm unterge- 
bracht und durch einen 
READ-Befehl ausgelesen. 
Selbstverständlich hat man 
auch vergleichsweise kleine 
Programme zur Adreßver- 
waltung erstell, um bei- 
spielsweise die Anschriften 
von Freunden und Be- 
kannten zu speichern. Dies 
hat jedoch mit einem echten 
Datenbank-System nicht 
mehr als die Speicherung 
von Informationen gemein 
und soll hier nicht näher be- 
handelt werden. 


Das Problem 


Der Erfassung, Sicherung 
und Verwaltung von Daten 
ist wohl das wichtigste Pro- 
blem, das beim Einsatz von 
Rechnern anfällt und gelöst 
werden muß, um die Inve- 
stition und den Betrieb der 
jeweiligen Anlage sinnvoll 
werden zu lassen. Während 
die Großrechenanlagen in 
Industrie, Forschung und 
Verwaltung bereits seit ge- 


raumer Zeit leistungsfähige 
Datenbank-Systeme besit- 
zen, scheiterte die Realisie- 
rung von komfortablen Da- 


teien bei Mikrocomputern' 


hauptsächlich an zwei Grün- 
den: Zum einen wardie Takt- 
frequenz der in Kleinrech- 
nern verwendeten Prozesso- 
ren zu gering, um die nötige 
Verarbeitungsgeschwindig- 

keit erreichen zu können - 
und zweitens fehlte es an 
Speicherplatz, der bis in die 
jüngste Zeit hinein für den 


‚kleinen Anwender nahezu 


unerschwinglich, ja selbst 
heute noch durchauseinernst- 
zunehmender Kosten- 
faktor war und ist. Dabei 
brauchen wir zwischen dem 
in der Zentraleinheit unter- 
gebrachten RAM und peri- 
pheren Massenspeichern 
wie Magnetband oder Dis- 
kette nicht einmal zu unter- 
scheiden. 

Gerade aber in Bezug auf die 
genannten Hindernisse hat 
sich inzwischen viel getan, 
wie wir alle wissen und ander 
Preisentwicklung der letzten 
zwei Jahre ablesen können. 
32 oder gar 64 Kilobyte im 
Arbeitsspeicher des Com- 
puters unterzubringen, ko- 
stet selbst den Einsteiger 
heute keine große Mühe 
mehr - und für den Preis ei- 
nes durchschnittlichen Surf- 
brettes kriegt man bereits 
zwei Standard-Floppys. Da- 
zu kommt, daß die 16bit- 
Klasse dabei ist, selbst im 
Handheldbereich Fuß zu 
fassen (Hewlett-Packard HP 
110 oder Sharp PC-5000), 
und Sir Clive mit dem 32bit- 
Rechner Sinclair QL bereits 
den Fuß in der Tür zum 
Heimcomputer-Markt hat. 


Mancher alte EDV-Hase 
sieht bereits heute das Ende 
der sogenannten Mehrplatz- 
Systeme (ein leistungsfähi- 
ger Rechner mit mehreren 
Terminals) zugunsten eines 
Netzwerkes gleichberechtig- 


ter universeller 
steme. 

Vom Standpunkt dessen 
also, was die Profis ”Hard- 
ware-Facility” nennen (also 
das vom Standpunkt der 
Hardware technisch Mach- 
bare), steht einem privaten 
Datenbanksystem nichts 
mehr im Wege. Somit sind 
jetzt die Software-Spezia- 
listen gefordert und haben 
auch schon einiges vorzu- 
weisen. 


Mikrosy- 


Datenbank: Was ist das? 


Sinn einer Datenbank ist es, 
alle Daten, die der Anwender 
in irgendeinem seiner mit- 
unter zahlreichen Pro- 
gramme benötigt, in einem 
gemeinsamen "pool" bei- 
sammen zu halten, wobei 
diese "Datei” über eigene, 
von der Struktur der jeweili- 
gen Programme unabhängi- 
ge, Steuerungsroutinen ver- 
fügt - und erst aufgrund 
dieses Umstandes von der 
unterschiedlichsten Soft- 
ware angezapft werden kann. 
Der ungemeine Vorteil liegt 
darin, daß die oft erschrek- 
kend hohe Daten-Redun- 
danz (Redundanz=Über- 
fluß), also die doppelt oder 
dreifach gespeicherten Da- 
ten, eingedämmt werden 
kann. Das erleichtert den 
Aufbau des jeweiligen Pro- 
blem-Paketes erheblich, spart 
Speicherplatz und erlaubt 
die Verarbeitung größerer 
und vor allem auch struktu- 
rierter Datenmengen. 


Wie arbeitet ein 
Datenbanksystem? 


In konventionellen Syste- 


men muß jedes Benutzerpro- 
gramm den physikalischen 
wie logischen Aufbau einer 
Datei kennen, muß Datenzu- 


En 
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griffe regeln und sich mit 
Verwaltungsroutinen plagen. 
Dabei fallen auch ständige 
Risiken in. puncto Da- 
tensicherung an, die man 
sehr gut auch einer Daten- 
bank selbst übertragen kann. 
Die Datei führt somit ein 
autarkes, aber durchaus dia- 
logbereites Dasein. Wie ein 
solches Datenbanksystem 
im einzelnen funktioniert, 
schauen wir uns anhand des 
aus dem Großrechner- 
bereich stammenden Micro 
Data Base System (MDBS) 
an, da es eine auch für An- 
fänger durchschaubare Struk- 
tur besitzt und darüber hin- 
aus für inzwischen verfüg- 
bare Privatanwender-Soft- 
ware (z.B. "Knowledgeman”) 
Pate stand. 

MDBS ist schon deshalb be- 
nutzerfreundlich, weil bei 
ihm lediglich vier Kompo- 
nenten zum Aufbau beliebi- 
ger Datenstrukturen dienen: 
Datenfeld (englisch: item) 
Art (englisch: type) 
Geschehnis (englisch: occu- 
rence) 

Verknüpfung (englisch: set) 


Ein Item, also die kleinste Sy- 
stemeinheit, kann ein String 
oder irgendein bestimmter 
numerischer Wert vom Typ 
Integer, Binary oder Time 
sein. Im Rahmen einer 
Adreßdatei könnte es zum 
Beispiel ein Name, eine 
Straßen- oder Ortsbezeich- 
nung oder eine Telefonnum- 
mer sein. 

Type bezeichnet die Zusam- 
menfassung mehrerer Items 
unter einem Sammelbegriff. 
Nehmen wir an, wir hätten 
auf Tonband diverse Pro- 
gramme gespeichert und uns 
dazu ein Register in Form ei- 
ner Programm-Kartei ange- 
legt. Dann könnten wireinen 
bestimmten Datensatz als 


"Type” bezeichnen. Bei- 
spielsweise: "274", "Spiel", 
"Pacman III”, "10530" = vier 


Items, die für Programm- 
start, Programm-Art, Titel 
und Speicherbedarf (Bytes) 
stehen. 

Occurence meint das jewei- 
lige Auftauchen des Da- 
tensatzes (bzw. eines einzel- 


nen Items) in der Struktur . 


der Datenbank. So kann un- 


ser Beispiel-Datensatz be- 
nötigt werden, weil wir sämt- 
liche Spiele innerhalb unse- 
rer Programm-Kartei aufli- 
sten wollen, weil wir diejeni- 
gen Programme suchen, die 
mehr als 10 K belegen usw. 
Set schließlich ist die Verbin- 
dung mehrerer occurences 
(z.B. unser Datensatz als Bei- 
spiel für ”Spiel-Programm” 
oder aber einzelne ”Pacman- 
Version”). 

Einfach unglaublich er- 
scheintdie Vielfalt, diein den 
vier genannten Elementen 
verborgen ist. Eine Fülle un- 
terschiedlicher Zusam- 
menhänge kann dargestellt 
werden, Anwender-Program- 
me übersichtlicher und 
schlichtweg problemorien- 
tierter gestaltet werden. 


Die System-Architektur 


MDBS gliedert sich in drei 

verschiedene Komponenten: 

a) die Data Definition La- 
guage (DDL) 

b)die Data Manipulation, , 
Language (DML) 

c) Das Query Retrieval Sy- 
stem (QRS) 


In DDL werden die kom- 
plette Datenbank, das heißt 
die anwendungsspezifischen 
Eigenschaften, Zahl, Namen 
und Arten der Datensätze, 
mögliche Zusammenhänge 
zwischen Daten, Zugriffsver- 
fahren usw. formuliert. 

Zum Zeitpunkt des Pro- 
grammlaufes, exakt im Au- 
genblick des Zugriffes, schickt 
das Anwenderprogramm per 
Subroutine-Call Befehle an 
MDBS, die zunächst an den 
DML-Block gehen, der sei- 
nerseits den physikalischen 
Aufbau unserer Datei kennt 
und die benötigten Infor- 
mationen beschafft. Somit 
kommt DML eine Funktion 
zu, diean folgendem Beispiel 
veranschaulicht werden känn: 
Stellen Sie sich vor, daß Sie 
von einem Freund eine be- 
stimmte Sache benötigen, 
dieser aber sagt, Sie sollten 
sich das Ding einfach aus 
seiner Wohnung holen. 
Selbst wenn er Ihnen den 


Wohnungsschlüssel geben 
sollte, wird es vielleicht nicht 
einfach für Sie sein, das Ge- 
suchte auch zu finden, weil 
halt jeder seine eigene Ord- 
nung hat. Wenn Sie aber je- 
manden in der Wohnung 
vorfinden, der sich dort be- 
stens auskennt (beispiels- 
weise die Freundin Ihres Be- 
kannten), so brauchen Sie 
keine dataillierte Ortskennt- 
nis, um das zu bekommen, 
was Sie suchen. Analog dazu 
benötigt das die Datenbank 
in Anspruch nehmende Pro- 
gramm keine Kenntnis des 
logischen Aufbaus unserer 
Datei, sondern lediglich die 
Verbindung zu DML. 


Direkten Kontakt zur Daten- 
bank nimmt der Benutzer 
nur dann auf, wenn er einige 
innerlich nicht miteinander 
verknüpfte Informationen 
abruft, das jeweilige Anwen- 
derprogramm somit nichts 
nutzt, Für solche Situationen 
dientihm das QRS, daseinen 


Datenzugriff quasi im Di- 


rect-Mode erlaubt. 


Gute Zukunftschancen 


MDBS und seine Fortent- 
wicklungen MDBS II bzw. 
III, natürlich aber auch die 
bereits erwähnte ”Know- 
ledgeman-Variante” sowie 
die auf ihr aufbauenden Sy- 
steme bieten eine über die 
Möglichkeiten konventionel- 
ler Datei-Verwaltungen hin- 
ausgehende Orientierung so- 
wohl an professionellen als 
auch privaten Belangen. 
Und weil sie darüber hinaus 
auch außerordentlich flexi- 
bel sind (die Standard- 
Version MDBS läuft auf den 
Betriebssystemen CP/M, 
Turbo-DOS, CP/M-86, 
LMP-M 86, PC-DOS u.a.), ist 
guter Absatz vorprogram- 
miert. Die einzelnen Adap- 
tionen für handelsübliche 
Heim-, Hobby- und Perso- 
nalcomputer werden bald zu 
Preisen zu haben sein, die 
komfortable Dateiver- 
waltung auch für private 
User rentabel machen. 

(sk) 


TOM, ee A ansoner, soll die 
Cedpink by einer Pyramide 
nach Schatztruhen durchsuchen. 


‚Aber es lau- 


ern ne gefährliche Wesen, die ihn attak- 
kieren. Ein brandneues 


Weitere een für COMMODORE-Computer: 


VcC 20 


je Kassette 


Battlefield 


16K) 


ShostTown(16K) 


Bonge(i 
en 


StarDefender(i6K) 


<-64 

Bongo _ Spacerilot- 
Glany____[O Zug 
House of Usher 


Programmierer gesucht! Händleranfragen erwünscht! 


»KINGSOFT 
w»Play it again« 


FRITZ. SCHÄFER - Schnackebusch 4 - 5106 Roetgen 
Telefon 0 24. 08/83 19 % 
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Geschichte der Informationstechnik 


1. Folge: Zahlen-Systeme 


u 


‚ Heute, wie vor über30000 Jahren wird das einfachste Hilfsmit- 


tel benutzt: die Finger. 
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Wie der Titel der vorliegen- 
den Serie verrät, wollen wir 
die Entwicklung der Infor- 
matioxstechnik durch die 
Jahrhünderte bis zum Com- 
puter verfolgen, um nichtnur 
die Entstehung der einen 
oder anderen Technologie 
besser verstehen zu lernen, 
sondern auch über den Be- 
griff der Information etwas 
zu erfahren. 

Wenn wir uns nämlich die 
Mühe machen, das Wort ”In- 
formation” zu umschreiben, 
so stellen wir fest, daß das gar 
nicht so einfach ist. Da fällt 
uns zwar eine-ganze Menge 
verwandter Wörter ein, zum 
Beispiel "Wissen”, "Nach- 
richt”, "Neuigkeit" oder "Er- 
fahrung”; der Gebrauch die- 
ser Wörter allein macht uns 
die Sache jedoch nicht 
einfacher. 

Um .eine exakte Definition 
des Informationsbegriffes 
treffen zu können, müssen 
wir uns zunächst mit Zahlen 
beschäftigen und reden 
deshalb in dieser ersten 
Folge ausschließlich über die 
Systeme zu deren Darstel- 
lung. 


Mit den Fingern einer Hand 


Jeder von uns bekommt bei 
Geburt eine Rechenma- 
schine gratis geliefert, näm- 
lich die Finger und - für aus- 
führliche Rechner - die 
Zehen. 

Es ist wohl kaum mehr aus- 
zumachen, wann einer unse- 
rer entferntesten Vorfahren 
auf die Idee kam, seine 
Gliedmaßen zum Abzählen 
zu gebrauchen. Gut war 
dieses System allerdings: 
Schließlich wird es noch 
heute gern benutzt - vom 


ABC-Schützen zum Erler-' 


nen des Einmaleins ebenso 
wie in der Kneipe, wo es be- 
kanntlich oft laut hergeht, 


“und zwei Finger immer noch 


am besten die Zahl der ge- 
wünschten Getränke an den 


Wirt hinter der Theke 
übermitteln. 

Das Bewußtsein, die Zahlen- 
darstellung mit den Fingern: 
beider Hände in Verbindung 
zu bringen, hat schließlich 
auch zur Erfindung des 
Zehner- oder Dezimal-Sy- 
stems (von lateinisch "deci- 
mus” = der zehnte) geführt, 
die allgemein den Indern zu- 
geschrieben wird. 


Rechnen ohne Stellenwert 


Das Dezimal-System schreibt 
den von .ihm genutzten 
Ziffern einen bestimmten 
Stellenwert zu. der von rechts 
nach links um das jeweils 10- 
fache ansteigt. Dadurch wird 
es erst möglich, Zahlen > 10 
ohne Hinzunahme weiterer 
Symbole zu schreiben. 

Daß dies auch anders gelöst 
werden kann, bewiesen die 
Römer mit ihrem "Buchen- 
staben-System”: Hier gibt es 
zwar aus praktischen Erwä- 
gungen eine bestimmte 
Reihenfolge in der Schreib- 
weise, nicht jedoch einen un- 
terschiedlichen Stellenwert. 


Beispiel: MDCCCLXXXIV 
(= 1984) 


Da haben wirein”M" für 1000, 
ein "D” für 500, vier "C’s” für je 
100, ein ”L” für 50, drei "X" 
für je 10 sowie ein "V” (mit 
vorausgehendem "T") für 5-1 
(also 4) 

Dabei zählt, wie wir sehen, 
jedes bestimmte Symbol 
gleich, unabhängig von sei- 
ner Position. 


Das Geheimnis: die Digitali- 
sierung 


Das römische Zahlensystem 
ist zwar äußerst einfach zu 
erlernen, doch für die großen 
Zahlen, mit denen man heut- 
zutage rechnet, ungeeignet: 
Es weist zwar gegenüber dem 
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Dezimalsystem nur sieben 
verschiedene Symbole auf, 
führt aber bei großen Zahlen 
aufgrund des fehlenden Stel- 
lenwertes zu wahren Ratten- 
schwänzen. Man könnte jetzt 
einwenden, daß einer Er- 
weiterung durch Einführung 
anderer Symbole (zum Bei- 
spiel für 10.000, 100.000 oder 
500.000) nichts im Wege 
stünde. 
Sicher. prinzipiell wäre dies 
, möglich, allerdings wenig 
sinnvoll, weil man auf diese 
Weise zu einem Wirrwarr 
unterschiedlicher Zeichen 
käme. Und dies ist mit ein 
Grund für die Durchsetzung 
des indischen Systems, das 
wir - wenn auch stark verän- 
dert - mit arabischen Zif- 
fern schreiben. 
Anders formuliert, ist es ein 
erster Sieg der Digitaltech- 
nik. 


Das Gebot: 
Wirtschaftlichkeit 


Seit langem ist man bemüht. 
ein Zahlensystem zu finden, 
das einerseits einen geringen 
Bezeichnungsaufwand be- 
sitzt (also mit möglichst we- 
nig Zeichen auskommt), zum 
anderen aber auch keine 
Darstellung mittels allzu vie- 
“ ler Stellen erfordert. 
Nehmen wir als Beispiel wie- 
der unsere Jahreszahl 1984: 
für deren Darstellung können 
wir uns zwei Extreme 
denken... 


I) ein System aus 1984 Sym- 
bolen. dessen höchstwertiges 
wir benutzen. 

2) ein System mit nur einem 
Symbol. von dem wir 1984 
aneinander hängen. ; 


Wie man sich leicht überlegt. 
sind beide Versionen wenig 
praktisch: der günstigste Fall 
muß somit irgendwo zwi- 
schen ihnen liegen. 
Durch Optimierungsver- 
suche hat man eine solche 
Basis auch tatsächlich gefun- 
. den: Es ist die sogenannte 
Zahl ”e”, deren Wert 2.71828 
beträgt. 
Na. prima! Da wär’ ja alles 
klar, wird nun mancher aus- 


rufen und dann erst bedenken, 
daß eine ”reelle” Zahl wie 
eals Basis für Zahlensysteme 
nicht gut geeignet wäre - 
ganz einfach, weil sich 
die Stellen hinter dem 
Komma nur schwer poten- 
zieren lassen. 

Man stand also vor der 
Frage, welcher der beiden e 
benachbarten "natürlichen" 
Zahlen 3 und2 man als Basis 
für ein möglichst praktisches 
Zahlensystem nehmen solle. 
Aufgrund der Tatsache, daß 
elektrische Schalter die In- 
formation "ja” und "nein" 
durch die Zustände ein” 
und "aus” bestens re- 
präsentieren können, » ent- 
schied man sich für das 
"Zweier-System”, auch "Dual- 
system” genannt. Verwandt 
werden dann nur die Ziffern 
O und I (was freilich auch mit 


zwei beliebigen anderen Sym- 
bolen möglich wäre). 

Man benutzt also als Basis 
die Zahl 2. "Basis” bedeutet, 
daß die Stellen einer Zahl im 
Zweiersystem Vielfache von 
2 darstellen. Wie im Dezi- 
malsystem auch, sto steht die 
Stelle mit dem geringsten 
Wert ganz rechts, die jeweils 
höchstwertige Position ist die 
am weitesten links stehende. 


Unsere Jahreszahl lautet so- 
mit: 11111000000, nämlich 


(1x1024)+(1x512)+(1x256) 
+(1x128)+(1x64). Die "Stel- 
len” 32, 16,8, 4,2 und 1 wer- 
den nicht benötigt, erhalten 
somit jeweils eine 0. 

Den Grad der Wirtschaftlich- 
keit, demein Zahlensystem er- 
reicht, verdeutlichen wir, in- 
dem wir den -Bezeich- 


nungsaufwand mit der benö- 
tigten Stellenzahl multiplizie- 
ren. Bei den drei angesproche- 
nen Systemen ergibt sich so- 
mit die folgende "Statistik": 


- römisches System: 
MDCCCCLXXXIV = 

7 Symbole x 12 Stellen = 
UF 84 

- Dezimalsystem: 

1984 = 10 Symbole x 

4 Stellen = UF 40 

- Dualsystem: 

11111000000 = 2 Symbole x 
11 Stellen = UF 22 


Dabei ist UF der "Unwirt- 
schaftlichkeitsfaktor", der 
möglichst niedrig sein sollte. 
Sie sehen, wie gut das 
Zweiersystem dabei ab- 
schneidet! 

(sk) 


Computer-User Vereinigung 
Bruchsah,C.U.V.B. 


Der Verein besteht aus ca. 25 
Mitgliedern, die sich mit der 
Informatik beschäftigen und 
zwar mit der Soft- und 
Hardware. 


Folgende Computertypen 
sind bei uns vertreten: 

C-64, VC-20, ATARI 600, AP- 
PLE Ile + APPLE II, PC 
1500, ZX-81, ZX-SPEC- 
TRUM. Wenn dieses Infor- 
mationschreiben heraus- 
geht, sind wir ein eingetrage- 
ner Verein. Unsere weiteren 


Ziele sind die Erreichung der’ 


Gemeinnützigkeit, sowie die 
Aufnahme der Arbeitsge- 
meinschaften, die speziell 
für Jugendliche an Schulen 
geschaffen wurden, in dem 
Ortsjugendring. : 


Zweck des Vereins: 
1. Die Förderung der Infor- 
matik durch: 


- Kontakte zu Gleich- 
gesinnten und anderen 
Computerclubs. 


In folgenden Städten wurde 
bereits zu anderen Vereinen 


ein Erfahrungsaustausch ge- 
tätig: Hamburg, Neun- 
kirchen, Saarbrücken, Mün- 
chen, Salzburg, Wien, Winter- 
thur. 

- Kontakte zur Com- 
puterherstellern bzw. com- 
putervertreibenden Firmen. 
Zu folgenden Firmen haben 
wir bereits Kontakt: IBM, 
Karlsruhe. 

Die Kontakte sollen zur 
Weiterbildung der Mitglie- 
der bezüglich der Informatik 
dienen und auch eine Co- 
operation mit den Firmen ist 
geplant, um diese auf mög- 
liche Verbesserungen ihrer 
Produkte hinzuweisen. 

- Eigenen Entwicklungen 
auf dem Gebiet der Hard- 
und Software, die der Ge- 
meinschaft zu Gute kommt. 
Kontaktadresse: Arbeitsge- 
meinschaft für Informatik, 
Wissenschaft und For- 
schung 

Torsten Zimmermann 
Steinackerstr, 12 

7520 Bruchsal 

Tel.: 07251/14920 


Computer- 
Flohmarkt 


Am Sonntag, dem 20. Januar 
1985, von 11-18.00 Uhr findet 
die Veranstaltung: 


BERGISCHER 
COMPUTER FLOHMARKT 


statt. 

Angeboten werden soll alles 
für und über den Computer 
sowie Telespiele. 

Im Rahmenprogramm fin- 
det ein Computer-Wettbe- 
werb statt mit vielen Sach- 
preisen und einem Com- 
puter als 1. Preis. 
Verkaufstische (1,20x0,50mm) 
sind für DM 5,- zu mieten 
und über den Computer- 
Shop der Buchhandlung 
Werner Finke, Kipdorf 32, 
5600 Wuppertal-1 (Elberfeld) 


Anmeldungen (keine 
gewerblichen Händler) nur 
persönlich in der Buch- 
handlung. 

Die Veranstaltung findet 
statt 

im Breuer-Saal, 

Auer Schulstraße 9, 


5600 Wuppertal-1 (Elberfeld), 
gegenüber der Volkshoch- 
schule. 

Eintritt DM 2.- 
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Zilog-System 12, 22 und 32: 


Produkt-Background 


Oberstes Ziel bei der Entwick- 
lung der neuen System- 
Versionen 12, 22, und 32 war 
die Verdopppelung der Lei- 
stungsfähigkeit gegenüber der 
Modelle 11, 21, und 31. Au- 
Berdem sollten die neuen Mit- 
glieder der Familie 8000 be- 
sonders servicefreundliche 
und auf alle Bedürfnisse der 
Anwender konfigurierbar sein. 
So sind sie jetzt multiuser- 
fähig bis zu 40 Plätzen, gegen- 
über 24 bei den Vorgänger- 
modellen. 


T 

Den neuen Systemen liegt 
der Hochleistungs-Prozessor 
Z8001B zugrunde, der mitei- 
ner Taktrate von I1,|l MHz 
arbeitet. Der Prozessor ist 
dazu ausgelegt, Speicher- 
Zugriffszeiten deutlich zu 
verringern. Dies ermöglicht 
der 32-K-große On-Board- 
Cache-Speicher, der ohne 
Warte-Zustand arbeitet. 


Der Arbeitsspeicher schreibt 
den zuletzt angesprochenen 
32 KB-Block in den Cache- 
Speicher. Benötigt der Pro- 
zessor Daten, wird abgefragt, 
ob diese Daten sich im 
Cache-Speicher befinden. 
Die Wahrscheinlichkeit be- 
trägt rund 90 Prozent, alsoer- 
folgt ein wesentlich schnelle- 
rer Zugriff. 


In den neuen Modellen 12,22 
und 32 wurden viele 
Features der Systemfamilie 
8000 übernommen, ins- 
besondere die Zilog-Pro- 
zessor-Architektur, die auf 
verschiedene intelligente 
Peripherie-Controller zu- 
greift. Auch das Wartungs- 
Konzept wurde beibehalten: 
Das einfache Austauschen 
von Standard-Boards ermög- 
licht eine schnelle und 
sichere Wartung. 

Der Ausbau der Systeme er- 
folgt ebenso einfach durch 
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Zusatz-Standard-Boards. 


Der Arbeitsspeichervon Mo- 
dell 12 beträgt standard- 
mäßig 512 KB und kann auf 
2 MB erweitert werden. Das 
5 1/4-Zoll-Winchester-Lauf- 
werk hat eine Kapazität von 
52 MB. Bis zu 16 Benutzer 
können gleichzeitig an dem 
System arbeiten. 


Der Kommunikations-Pro- 
zessor ICP 8/02 ist für alle 
drei Modelle als Option er- 
hältlich. Die Systeme sind 
voll softwarekompatibel mit 
allen UNIX-Standard-Pro- 
grammen und -Tools. 


J. Kepser: "Mit unseren Mo- 
dellen 12,22 und 32 bringen 
wir frischen Wind in den un- 
teren Minicomputer-Bereich. 
Wir bei Zilog glauben, mit 
unseren Systemen eine ganz 
neue  Preis-Leistungs-Di- 
mension erreicht zu haben, 
denn deren Leistungen sind 
wirklich einmalig in diesem 
Bereich”. 


Zweimal 


schneller 


Die Rechner-Familie 8000 von 
Zilog hat jetzt neue Mitglie- 
der. Die Modelle 12,22 und 32 
arbeiten mit einer Taktrate 
von 11,1 MHz und sind mehr- 
platzfähig bis zu 40 Benutzer. 


Die Systeme, die auf der 
Basis des Hochleistungs- 
Prozessors Z 8001B mit 
einem 32 KB-große Cache- 
Speicher arbeiten und un- 
ter UNIX laufen, beinhalten 
in ihrer Grundkonfiguration 
Platten- und Kassettenband- 
Laufwerk. 

Der Arbeitsspeichervon Mo- 
dell 32 ist 512 KB groß bis zu 


4 MB erweiterbar. Das Acht- 
Zoll-Plattenlaufwerk hat eine 
Kapazität von 168 MB. Vier 
solche Laufwerke mit einer 
maximalen Speicherkapa- 
zität von 672 KB können be- 
trieben werden. 


Model 22 hat, wie Modell 32, 
einen 512-KB-Arbeitsspei- 
cher, der bis 4 MB erweiter- 
bar ist. Das 5 1/4-Zoll- 
Winchester-Laufwerk hat 52 
MB Speicher. Ebenfalls kön- 
nen vier Laufwerke mit 208 
MB angeschlossen werden. 


odelle 22 und 32 sind stan- 
dardmäßig für acht Benut- 
zer-Plätze ausgelegt und bis 
zu 40 erweiterbar. Als Option 
sind ein 9-Spur-Band-Lauf- 
werk für Back-up und ein 
IEEE-Gleitkomma-Prozessor 
erhältlich. 
Das 9-Spur-Laufwerk ist das 
erste Laufwerk für Mehr- 
platzbetrieb unter UNIX und 
kann von sämtlichen Sy- 
stem-Benutzern ange- 
sprochen werden. Die maxi- 
male Geschwindigkeit be- 
trägt 100 Zoll/s. "Es ist das 
schnellste Back-up-Medium, 
das aufdem Markt für UNIX 
erhältlich ist”, erklärt Jürgen 
Kesper, Geschäftsführer der 
Zilog GmbH in Taufkir- 
chen. 


Die durchschnittliche Zu- 
griffszeit der neuen Systeme 
auf die Massenspeicher be- 
trägt 20 (Modell 32) und 
30 ms (Modell 22 und 12). 


Der als Option erhältliche 
Gleitkomma-Prozessor FPP 
8001 entspricht IEEE 754. 
Der ebenfalls optionelle 
Neun-Spur-Streamer  spei- 
cherteine8-MB-Dateiin 80 s 


und ist so wohl einer der 
schnellsten Instrumente. die 
zur Zeit, auf dem Markt er- 
hältlich sind. 


Der intelligente Kommuni- 
kations-Prozessor (Option) 
kann in alle drei neuen Sy- 
steme eingebaut werden. Er 
unterstützt Standard-Proto- 
kolle wie 2780/3780 und X.25 
und entlastet die CPU Z 
8001B. So erfolgt ein größerer 
Durchsatz der Daten, weil 
die CPU keine 1/0-Befehle 
ausführen muß. 


Die Systeme sind voll kom- 
patibel mit Programmier- 
sprachen wie D, Fortran 77. 
Pascal, RM/Cobol, DEC Di- 
bol, DG Icos Cobol und 
Basic Four Business Basic 
III. Ebenso laufen Pro- 
gramme wie XED und 
Q-One (Textverarbeitung). | 
Multiplan und Supercomp- 
Twenty, Informix und Uni- 
fiy sowie PVI Di-3000- 
Grafik. Auch der Anschluß 
von Personal-Computern er- 
folgt problemlos. 


Unix ist ein Warenzeichen 
von AT & T Bell Labs, Inc. 
Z 8001 ist ein eingetragenes 
Warenzeichen von Zilog, 
Inc. RM/Cobol ist ein 
Warenzeichen von Ryan- 
Mc-Farland Corp. DEC und 
Dibol sind eingetragene 
Warenzeichen von Digital 
Equipment Corp. XED ist 
ein Warenzeichen von Com- 
puter Concepts Ltd. Q-One 
ist ein Warenzeichen von 
Quadratron Systems Inc. In- 
formix ist ein Warenzeichen 
von Access Technology Inc. 
DI-3000 ist ein Waren- 
zeichen von Precision 
Visuals Inc. 
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Portabler 16-bit-Personal Computer von Panasonic 
mit eingebautem Drucker - RL- H7000 


Wer sich mit dem Gedanken 


getragen hat, einen Personal- 
Computer zu kaufen, der alle 
Wünsche gleichzeitig erfüllt, 
kann jetzt erleichtert aufat- 
men: Ab sofort gibt es von 
Panasonic einen PC, der al- 


len Anforderungen ent- 
spricht. Der RL-H7000 - im 
Ausland bereits sehr erfolg- 
reich - ist kompakt und 
portabel. alles in einem Ge- 
rät. Er ist als 16-bit-Com- 
puter mit CPU Intel 8088 und 
einer Taktfrequenz von 4,77 
MHz schnell und leistungs- 
fähig. Seine Kapazitätliegtin 
der Basisversion im Haupt- 
speicher bei 256KB RAM, die 
auf maximal 640KB zu er- 
weitern sind. Er ist komplett 
ausgestattet: mit einer ergo- 
nomisch verstellbaren Ta- 
statur in DIN-Ausführung, 
mit eingebautem, hochauf- 
lösenden 9-Zoll-Monochron- 
Monitor , für 80 bzw. 40 
Zeichen in 25 Zeilen sowie - 
eine Besonderheit - mit ein- 
gebautem Thermodrucker 
mit 80, wahlweise -132 
Zeichen pro Zeile zum Aus- 
druck von Schrift, Daten und 
Grafik. Natürlich sind auch 
die Massenspeicher einge- 
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baut, gleich zwei flache J 
Diskettenlaufwerke mit je 
360KB Kapazität für dop- 
pelseitige doppeldichte 5 1/4- 
Zoll-Disketten. 

Ein wichtiger Punkt ist auch 
die Software-Kompatibilität: 
Der Panasonic-PC arbeitet 
mit dem Betriebssystem MS- 


Dos 2,11; er ist kompatibel 
mit dem weltweiten Indu- 
striestandard, so daß über 
2000 professionelle Soft- 
wareprogramme zur Verfü- 
gung stehen. 

Damit ist der RL-H7000 ein 
kompletter Personal-Com- 
puter, der sofort genutzt wer- 
den kann. Dennoch ist er 
variabel und erweiterungs- 
fähig, um ganz nach den Be- 
dürfnissen des Anwenders 
weitere Peripherie zusätzlich 
anschließen zu können. So 
gibt es nicht nur eine paral- 
lele (Centronics-) und eine 
serielle Schnittstelle (RS- 
232C), ein RGB-Anschluß 
erlaubt den Anschluß eines 
Farbmonitors. Die erforder- 
liche Farbgrafikkarte ist be- 
reits eingebaut. Als zweiter 
Prozessor kann zusätzlich 
ein 8087 eingebaut werden, 
zwei zusätzliche Steckplätze 
nehmen RAM-Erweiterungen 
sowie andere Erweite- 
rungskarten auf. 

Mit 15kg Gewicht, 47 Zenti- 
meter Breite und 33,5 Zenti- 
meter Höhe ist der Panaso- 
nic RL-H7000 durchaus - 
und komplett - noch am 


eingebauten Griff tragbar, 


% 


wenn ein Ortswechsel erfor- 
derlich sein sollte. 
Technische Einzelheiten: 
RL-H7000: 

- 16-bit Mikroprozessor 
(Intel 8088) 

- 256KB RAM Hauptspei- 
cher 

- erweiterbar 
640KB 

- separate deutsche Tastatur 
nach erweiterter DIN 2137 

- 9" monochromer Bild- 
schirm 

- eingebauter Drucker 80 
Zeichen 

- Soft- und Hardware- 
kompatibel zum Industrie- 
standard 

- 1 parallele Schnittstelle 
(Centronics) 

- 1 serielle Schnittstelle (RS- 
232C) 

- RGB Farbausgang 

- MS-DOS Betriebssystem 
auf Diskette 5.25” 

incl. deutsches Handbuch 
DM 7.968,60 

RL-M900: 

-RAM Expansion Platine mit 
128KB auf der Platine, die 
restlichen 256KB sind freie 
Sockel, die mit 64KB IC- 
Chips bestückt werden. kön- 


auf max. 
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180 Zeichen pro Sekunde 
Voll IBM-kompatibel 


Der neue Matrixdrucker 
DPGM 9 von Fujitsu bringt 
frischen Herbstwind in die 
Druckerlandschaft. 

180 Zeichen pro Sekunde 
schafft der DPGM 9 mühe- 
los. Die 9 x 9 Matrix ermög- 
licht gut lesbare Zeichen, die 
sogar als Fotokopie gut les- 
bar sind..Sogar Unterlängen 
(”y”) werden korrekt darge- 
stellt. Fettdruck, Breitschrift, 
hoch- und tiefgestellte Zei- 
chen machen keine Prob- 
leme. 

Konzipiert für Mikrocom- 


putersysteme und ”Work- 
stations” löst dieser Matrix- 
drucker alle Probleme: Li- 
stings, Statistiken, Reports, 
Texte, Briefe. Die letter qua- 
lity wird durch vierfachen 
Punktdruck in einem Zei- 
chen erreicht. 

Der Friktionsantrieb sorgt 
für mühelose Verarbeitung 
von Einzelformularen und 
Rollenpapieren. .Ein flach 
eingebauter Formu- 
lartraktor verarbeitet End- 
lospapier von 89 - 266mm. 
Eine eingebaute Abreiß- 


Computer- Ausstellung 


US 


1985 wieder in vier 
Schweizer Städten 


Die Vorbereitungen für die 
"LOGIC ’85” laufen bereits 
auf vollen Touren. Die 1983 
erstmals durchgeführte Aus- 
stellung für ”Mikro- und 
Kleincomputer im kommer- 
ziellen Bereich” wird im 
kommenden Jahr wie schon 
1984 in den vier Städten Zü- 
rich, Bern, Basel und St. Gal- 
len durchgeführt. Das Kon- 
zept der regionalen Ausstel- 
lungen mit ‘Schwergewicht 
auf Software-Angeboten hat 
sich sehr gut bewährt. . 


Gegenüber dem Vorjahr 
wird 1985 ein wesentlich ver- 
bessertes Hallenangebot be- 
stehen. In Zürich konnten 
die Züspa-Hallen 7 und 8, in 
Bern die Halle 2 des neuen 
Bea-Komplexes reserviert 
werden. In Basel bleibt es bei 
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der Sporthalle St. Jakob, die 
über eine sehr gute Infra- 
struktur verfügt, und in St. 
Gallen wurde lediglich die 
Halle getauscht: Die OLMA- 
Halle 3 (statt Halle 1) ist ver- 
kehrsgünstiger gelegen und 
weist zudem einige techni- 
sche Vorteile auf. 


Das ursprüngliche Projekt, 
die "LOGIK” zusätzlich in 
der französischen Schweiz 
und im Tessin durchzufüh- 
ren, wurde - wenigstens für 
1985 - fallengelassen. Die 
Organisatoren wollen vor- 
erst die Entwicklung aufdem 
Ausstellungsmarkt beobach- 
ten, die sich aufgrund des 
nun jährlichen Turnus von 
”Swissdata” (Basel) und 
"Computer" (Lausanne) er- 
gibt. Die "LOGIC” versteht 


kante erlaubt das schnelle 
Abtrennen ohne Einreißen 
oder Verrücken. 


Der DPGM 9 wird in 2 Ver- | 


sionen angeboten. Als Epson 
FX-80 oder als IBM-PC- 
Matrixdrucker-Version. Er 
ist vollkommen funktions- 
kompatibel (Zeichensatz und 
Escape-Code-Umsetzung). 
Alternativ mit Centronics 
parallel oder mit 2.4 Schnitt- 
stelle. 

Der DPGM kostet 1.835,- DM 
inkl. MwSt. 


sich zwar von ihrem Ausstel- 
lungskonzept her als regio- 
nale und ausstellerspezifi- 
sche Ergänzung. zu den 
großen Fachmessen, will 
sich aber weder dem Ausstel- 
ler noch dem Besucher mit 
einer Omnipräsenz aufdrän- 
gen, sondern vielmehr deren 
reale Bedürfnisse berück- 
sichtigen. 


Die Daten: 


27.-30. März 1985 
10.-13. April 1985 
17.-20. April 1985 

8.-11. Mai 1985 


Bern 
Zürich 
Basel 

St. Gallen 


Anmeldetermin: 
bis 30. Oktober 1984 
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Das neue Bildschirmterminal 
CIE-7800 


ist auf der einen Seite ein 
Terminal, das zu den IBM- 
Bildschirmen 3178 und der 
Familie3278 voll kompatibel 
ist, auf der anderen Seite ein 
V24-Terminal, dessen Typ 
alternativ gewählt werden 
kann. Das IBM Terminal 
wird direkt über ein Coaxial- 
kabel an eine Steuereinheit 
des Typs 3274 oder 3276 an- 
geschlossen. Für das V24- 
Terminal steht eine V24- 
Schnittstelle zur Verfügung. 


Der Bildschirm: 

Der CIE-7800 besitzt einen 
großen bilendfreien Bild- 
schirm mit einer Diagonalen 
von 14 Zoll. Im IBM- 
Emulationsbetrieb sind alle 
notwendigen Videoattribute 
darstellbar. Im Betrieb als 
V24-Terminal sind die Vi- 
deoattribute der jeweiligen 
Emulation (z.B. DEC VT52/ 
VT100. IBM3101,. IBM3275 
oder HP2622) voll imple- 
mentiert. 


Schnittstellen: 

Neben der normalen Coa- 
xial-Schnittstelle für den 
IBM-Betrieb verfügt der 
CIE-7800 standardmäßig 
über eine lokale serielle 
asynchrone V24-Drucker- 
schnittstelle, an die ein preis- 
günstiger serieller ASCI- 
Drucker für  Hardcopy- 
zwecke direkt angeschlossen 
werden kann. Baudrate, Da- 
tenformat und Handshake- 


protokoll sind über ein Set- 
up-Menue einstellbar und 
werden, wie alle anderen.ein- 
gestellten Werte, in einem 
nichtflüchtigen Speicher 
(EEPROM) permanent ge- 
speichert. 

Für den Betrieb als V24- 
Terminal ist eine weitere 
V24-Schnittstelle eingebaut. 
Einstellung der Baudrate der 
anderen übertragungsspezi- 
fischen Daten erfolgt genau 
wie bei der Druckerschnitt- 
stelle. 


HABEN SIE 
SCHON IHR 
PERSÖNLICHES 
CPU-ABONNEMENT 
VORGEMERKT ? 
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Ein  Spalten-Zeilenzähler, 
eine interne, batteriegepuf- 
ferte Uhr, eine universelle 
Spannungsversorgung (Netz- 
spannung 110V bis 240V) ge- 
hören genauso zurStandard- 
ausstattung wie Dunkel- 
schaltung des Bildschirms 
nach einer einstellbaren 
Ruhezeit und intensive in- 
terne Testroutinen. 


Tastatur: 

Niedriges abgesetztes Ta- 
stenfeld mit verstellbarem 
Anstellwinkel und 87 Tasten. 
Verschiedene Zeichensätze 
(IBM-spezifisch oder Län- 
der-spezifisch) sind einstell- 
bar. 


Betriebsarten: 

Das CIE-7800 kann im Vor- 
dergrund als asynchrones 
ASCIH-Terminal oder als se- 
parates BSC-Terminal (IBM 
3275 o.ä.) betrieben werden, 
während im Hintergrund das 
3270-Protokoll aktiv bleibt. 
Auf diese Weise kann zwi- 
schen den beiden Be- 
triebsarten beliebig hin- und 
hergeschaltet werden. 


Das CIE-7800 - sechs IBM- 
Terminals in einem Gehäuse 
und dazu ein asynchrones 
ASCII-Terminal. 
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CPU-Game-Hunter 


Versuchen Sie möglichst viele Eier auf- 
zufangen, die Ihre Henne legt und fal- 
len läßt! 

Viele Raffinessen und Schwierigkeiten 
müssen bewältigt werden: das Spiel en- 
det, wenn Sie 3 Eier nicht gefangen 
haben. 

Mit steigender Rundenzahl (max. 4) 
ändert sich die Spielsituation, 
d.h. Sie bekommen es mit weiteren 
Hindernissen zu tun. 5 

Von Runde zu Runde erhöhtsich eben- 
falls die Anzahl der zu fangenden 
Eier! 

Also aufpassen! Ihre Henne wird im- 
mer fleißiger! 

Für jedes gefangene Ei erhalten Sie 10 
Punkte. Zerschellt ein Ei am Boden, so 
werden Ihnen Punkte abgezogen. 
Gesteuert wird mit dem Joystick, 
Chicken-Joke kann einzeln oder zu 
zweit gespielt werden. 

Es warten insgesamt 6 Levels auf Ihr 
Geschick. 


Programmbeschreibung: 

130-170: Variablen-Indizierung 
180-340: Beginn der großen Spiel- 
schleife, Zeichen-Definitionen 

350: Abfrage, ob Titelbild erscheinen 


100 !11%*#CHICKEN-JOKERRRT I 
110 ! COPYRIGHT BY E.HOEFLER 
AND D.BILLER (HB-VISION) 
120 ! ADRESSE: E.HDEFLER, 80 
56 NEUFAHRN, CARL-DIEM-STR.2 
1, TEL.: 08185/4210 

130 CALL CLEAR 

140 CALL MAGNIFY (3) 

150 RANDOMIZE 

160 TI=0 

170 V0,6=2 :: ROUND,SP=1 :: 
BONUS=10 :: DIM P(2):: Pti), 
Fi2)=0 

180 ! BEGINN DER SPIELSCHLEI 
FEHERRRRRRRRRRRRIRIHIEIRR 
190 V,K,OUT,IN=0 :: U=s5 :: M 
=U 

200 IF ROUND>20 AND <ROUND-1 
) /4=INT( (RDUND-1)/4) ) THEN VO 
=V0-0.3 g 
210 IF ROUND:>8 AND ROUND<1 
THEN RHY=11 ELSE RHY=13 

220 IF ROUND>12 THEN RHY=11 
230 CALL CHAR (95, "OO1B1C2AEC 
1DÖFOFOZ01000000000000000028 
S4BABB7DEFEFEFFE7C282828 
66") 
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Chicken Joke 


für den TI-99/4A + Extended Basic 


soll 


- 360-450: Bildaufbau - der jeweiligen 


Runde entsprechend 

460-580: Kleine Spielschleife: Bewe- 
gung des Bauern mit verschiedenen 
Verzweigungen (Ei gefangen oder nicht 
gefangen, Mauer oder liegendes Ei be- 
rührt, oder dgl.). Diese Schleife wird RHY 
mal durchlaufen, dann wird ein neues 
Ei gelegt. 

590-680: Huhn legt Ei mit zufälliger 
Fallrichtung 

690-760: Spielerwechsel, wenn dieser 
notwendig ist 

770-790: Einer der beiden Spieler schei- 
det aus 

800-880: Punktezählung und Anzeige 
890-980: Bauer stolpert über liegendes 
Ei 

990-1070: "Game over” für einen der 
beiden Spieler 

1080-1270: Titelbild 

1280-1410: Endebild 

1420-1640: Melodie s 


Variablenliste: 

TI: Schaltung zum Titelbild 

G: Soviele Eier müssen gefangen wer- 
den (Catch:...) 

ROUND: Runde 


240 CALL CHAR (100, "0000142A5 
DDDBEFFFFF77F3E1414143600183 
86437BBFBFOCLOBO") 

250 CALL CHAR (104, "020100000 
0011148243D1F0100040E0F088C7 
EOF9ADZFEDAO4LCFEIESEICO 
8rc") 

260 CALL CHAR 112, "10317EF05 
94B7FSB20387F787C38103F40800 
0000080881224BCF88000207 
öFoö") 

270 CALL CHAR 136, "FFFF") 
280 CALL CHAR (108, "000000000 
10307070F0FOF070300000000000 
VOOOOBULOLOEOEOEOLOBO") 

290 CALL CHAR (127, "OOFBFBFRO 
ÖTFFFTFE") 

300 CALL CHAR 116, "000000000 
V000001835SFSFO74BEIFEADOOOT7O 
FOB183070190BSF79F99I39F 
B33") 

510 CALL CHAR (120, "OOEOFODOL 
BOLOEIBDOFLIEIFFFICDFCCOOOONO 
00000000080C 1 F2FCEOD2977 
FB&") 

220 CALL CHAR {128, "FFFFFFFFF 
ERFERFEE") 


SP: Spieler 

BONUS: Gutschrift für gefangenes Ei 
P(1), P(2): Punkte der beiden Spieler 
OUT: Eier, die nicht gefangen 
wurden 

IN: Eier, die gefangen wurden 

VO: Geschwindigkeit des Bauern 
RHY: Abstand, in welchem Eier 
gelegt werden 

V: Spaltengeschwindigkeit der Eier, in 
Abhängigkeit vom Huhn 

K: Spielschleifenzähler (kleine Spiel- 
schleife 

M: Sprite bzw. Ei, das dem Boden am 
nächsten ist 

Z: Geschwindigkeit des Huhns 
(zufällig) 

U: Sprite bzw. Ei, das dem Huhn am 
nächsten ist 

EOZ: Gibt die Anzahl der Spieler an 
FLAG: Zeigt an, ob der Bauer nach 
links oder rechts fährt 

I: Schleifenindex für diverse Schlei- 
fen 

X, Y: Position des Joystick-Hebels 

C, D: Position des Eies, das dem Boden 
am nächsten ist 


330 CALL CHAR (130, "001800630 
0180000", 131, "OOLZ000000L.300 
00") 

340 CALL COLOR(13,16,02,14,9 
‚1,12,10,15) 

350 IF TI=0 THEN GOSUB 1080 
360 FOR I=2,T0 8 :: CALL COL 
OR(1,16,2):: NEXT I 

370 CALL HCHAR (34 f, 136,32) 
380 CALL HCHAR(24,1,127,32) 
390 IF ROUND>12 THEN CALL VE 
HAR (20, 16,127,4) ; 
400 IF (ROUND>4 AND ROUND<9) 
OR ROUND>1& THEN CALL HCHAR( 
10,1,128,192) 

410 DISPLAY ATi4,1DSIZEIS)r" 
ROUND" :: DISPLAY AT(4,6)8S1Z 
E(3) :ROUND 

420 DISPLAY AT(6,1)SIZE(6):" 
PLAYER" :: DISPLAY AT(6,7)51 
ZE(2):SP 

430 DISPLAY AT(4,18)SIZE{7): 
"FOINTS:" :: DISPLAY AT(4,25 
)SIZE (6) :FiSP) 

440 DISPLAY AT(6,1B)SIZE(6): 
"CATCH:" 2: DISPLAY AT(6,24) 
SIZE(2):6 
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450 CALL SPRITE(#1,100, 15,1 
100, #2, 104,4, 168, 100) 

450 ! BEWEGUNG BAUER x 
470 CALL JOYST(SP,X,Y) 

480 IF X=4 AND Y=0 THEN CALL 
PATTERN(#2,112):: CALL MOTT 
ON (#2, 0, vOrX) 

490 IF X=0 AND Y=0 THEN CALL 
MOTION (#2,0,0) 

500 IF X=-4 AND Y=0 THEN CAL 
L PATTERN(#2, 104): CALL MOT 
ION (#2, 0, VORX) 

S10.K=K+l ı: IF K=RHY THEN G 

‚OSUB 600 

520 IF ROUND>8 AND ROUND< 13 


THEN CALL FOSITION(#,C,Di:: 
IF C>165 THEN GOSUB 840 
ELSE 550 

530 CALL POSITION(#M,.C,D) 

540 IF C>165 THEN CALL DELSP 

RITE(#M) = CALL SÜUND (100,-5 
«0):: OUT=DUT+1 :: P(SP) 

=P(SP)-(BONUS#*G/2):: GOSUB 8 

40 :: IF OUT=3 THEN 780 

550 IF ROUND>8 AND ROUND<13 

THEN CALL COINC (#2,#25,10,T) 
»: IF T THEN 890 

560 CALL EOINC(#2,4M,8, Ti: 

IF T THEN GOSURB 810 N 

570 IF ROUND>12 THEN CALL CO 

INC (#2,168, 117,10, T):s IF T 

THEN CALL SOUND (270,-5,0 

)s: GOTO 780 

580 GOTO 470 5 

590 ! EI WIRD GELEGT kr 

600 V=Z 

610 CALL MOTION(#1,0,0)2: CA 

LL POSITION (#1,A,B) 

620 Z=INT(RND*11)-5 

630 U=U+1 :: M=U-2 

640 IF Z>0 THEN CALL PATTERN 
(#1, 100)ELSE CALL PATTERN (#1 

96) 

650 CALL MOTION(#1,0,2) 

660 CALL SPRITE (#U, 108,16, A,' 

B,5,V) 

670 K=0 

680 RETURN 

690 ! SPIELERWECHSEL #r####* 

700 FOR I=1 TO 25 :: CALL MD 

TION(#1,0,0)2: NEXT I :: FOR 
I=1 TO 50 NEXT I 

710 IF EOZ THEN 740 

720 IF SP=2 THEN SP=1 :: GOT 

0 740 

730 IF SP=1 THEN SP=2 :: CAL 

L CLEAR :: CALL DELSPRITEIAL 

L)zs GOTO 190 

740 G=6+1 :: CALL CLEAR :: C 

ALL DELSPRITE (ALL) 

750 ROUND=ROUND+1 :: IF (ROU 

ND-1) /4=INT ( (ROUND-1) /4) THEN 
6=2 

760 GOTO 190 

770 ! EIN SPIELER SCHEIDET A 

a 

780 IF SP=1 THEN SP=2 ELSE S 

P=1 

790 IF EOZ=1 THEN 1280 ELSE 

GOSUB 990 z: CALL C 
CALL DELSPRITE{A 
»: GOTI 190 

800 ! PUNKTEZAEHLUNG tr 
810 CALL SOUND (250,700,0):: 
CALL DELSPRITE(#M.#25):: IN= 
IN+1 2: P(SP)=P (SP) +BONU 
s 

820 IF IN=G THEN 700 

830 DISPLAY AT(6,18)SIZE (6): 
"CATCH: » DISPLAY AT(6,24) 

SIZE (2) :G-IN 
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840 DISPLAY AT(4,18)SIZE(T: 

"POINTS: " =: DISPLAY AT(4,25 

)SIZE (6) :PiSP) 

850 RETURN 

860 CALL DELSPRITE(#M) 2: CAL 

L SPRITE (#25, 108,16, 175,D) 

870 OUT=OUT+1 :: P(SP)=P(SP) 

-(BONUS#BG/2):: GOSUB 840 :: 

IF OUT=3 THEN 780 ; 

880 RETURN 

890 !BAUER GESTOLPERT *iik* 

900 IF X=-4 THEN FLAG=-1 ELS 

E IF X=4 THEN FLAG=1 

910 CALL SOUND (500, 200,0) 

920 CALL MOTION (#2,0,0) 

930 IF FLAG=-1 THEN CALL PAT 

TERN (#2, 116)ELSE CALL PATTER 

N(#2,120) 

940 CALL DELSFRITE (#25) 

950 FOR I=1 TO 26 :: CALL MO 

TION(#1,0,0):: NEXT I 

960 CALL POSITION(#2,L,M) 

970 FOR I=1 TO 50 :: CALL HC 

HAR(INT(L/B) „INT (M/B) +2, 130, 

1)z: CALL HCHAR(INT(L/8) 

„INT(M/8) +2,131,1)22 NEXT I 

980 GOTO 780 

990 ! GAME DVER KHHisiaiseisiieiiek 

1000 ‚CALL CLEAR :: CALL DELS 

PRITE (ALL) 

1010 CALL SCREEN (5) 

1020 DISPLAY A1 (8,10): "GAME 

OVER" 

1030 DISPLAY AT(11,.10): "PLAY 

ER" :: IF SP=1 THEN DISPLAY 

AT(11,17):2"2" ELSE DISPL 

AY ATU1,17)ı"1" — 

1040 FOR I=1 TO 900 :: NEXT 

I 

1050 IF SP=1 THEN ROUND=ROUN 

D+1 :: G=G+1 :: IF (ROUND-1) 

/4=INT € (ROUND-1)./4) THEN 

G=2 

1060 CALL SCREEN (2) 

1070 RETURN 

1080 ! TITELBILD een 

1090 CALL SCREEN (7) 

1100 FOR I=1 TO 8 :: CALL CO 

LOR(1,2,16):: NEXT I 

1110 DISPLAY AT(6,6)5S1ZE(19) 

»"HB-VISION PRESENTS: " 

1120 GOSUB 1450 

1130 CALL SPRITE(#1,112,13,9 

5.50,0,9 

1140 CALL SOUND (4250, -4,0) 

1150 CALL POSITION(#1,A.B) 

4160 IF B=200 THEN CALL MOTI 

ON(#1,0,0)2: CALL PATTERN (#1 

‚104):: GOTO 1180 

1170 GOTO 1150 

1180 DISPLAY AT(13,8)SIZE (12 

)a"CHICKEN-JOKE" 2: DISPLAY 

ATIIA.BISIZELIDIE"..____ 
u 

1190 DISPLAY AT(20,18)5IZE(4 

)2"19894" 

1200 CALL SPRITE (#2, 100,5,80 

90) 

1210 FOR I=1 TO 1000 :: NEXT 


1 

1220 CALL CLEAR =: CALL DELS 
PRITE (ALL) 

1230 DISPLAY AT(10,4):"ONE 0 
R TWO PLAYER ?" 

1240 ACCEFT AT(10,24)BEEF VA 
LIDATE("12"):E0Z :: IF E0Z>2 
THEN 1240 

1250 CALL- CLEAR :: CALL COLO 
R(1,2,1):: FOR I=2 T08:: C 
ALL COLOR(1,16,2):: NEXT 


I E 
1260 CALL SCREEN(2):: TI=1 


1270 RETURN 

1280 ! ENDE-BILD Kritik 
1290 CALL CLEAR :: CALL DELS 
PRITE (ALL) 


. 1500 FOR I=2 TO 8 :: CALL CO 


LOR(1,2,1):: NEXT I 
1310 CALL SCREEN(11) 
1320 DISPLAY AT(5,DSIZE(B): 
"PLAYER 1" :: DISPLAY AT(5,2 
O)SIZE(B) :"PLAYER 2" 
1330 DISPLAY AT(10,12)SIZE(& 
):"POINTS® 
1340 DISPLAY AT(10,3)SIZE(6) 
»P(1)z: DISPLAY AT(10,20)51Z 
Ei6):P(2) 
1350 IF P(1) >P(Z)THEN CALL S 
PRITE (#1, 112,7,100,45,#2, 116 
«7,100, 180)ELSE CALL SPR 
ITE (#3, 120,7,100,45,#4, 104,7 
‚100, 180) 
1360 DISPLAY AT(20,3)SIZE(15 
)2"NEW GAME? (Y/N)" 
1370 GOSUB 1430 
1380 CALL KEY(0,K,S):: IF $= 
0 THEN 1380 
1390 IF K=89 OR K=121 THEN C 
ALL CLEAR :: CALL 'DELSPRITE( 
ALL):: GOSUR 1230 2: CAL 
L CLEAR := CALL SCREEN(2):: 
170 
IF K=78 OR K=110 THEN E 


G0TO 1380 
! TITELMELODIE rn 
GOSUB 1620 
FOR I=1 TO 50 3: NEXT I 
GOSUB 1830 
FOR I=1 TO 100 :: NEXT 


GOSUB 1620 
FOR I=1 TO 50 :: NEXT I 
CALL SOUND(180,300,0):: 
CALL SOUND(190,385,0):: CAL 
L SOUND(190,390,0)2: CAL 
L SOUND (240, 340,0) 
1500 FOR I=1 TO 100 =: NEXT 
1 


1510 GOSUB 1620 

1520 FOR I=1 TO 50 :: NEXT I 
1530 GOSUB 1630 

1540 FOR I=1 TO.50 := NEXT I 
1550 GOSUB 1640 

1560 GOSUB 1640 

1570 CALL SOUND (140,350,0):: 
CALL SDUND(200,330,0)2: CAL 
L SOUND (260, 270,0) 

1580 FOR I=1 TO 40 :: NEXT I 
1590 CALL SOUND(180,270,0):: 
CALL SDUND(100,40000,30) 2: 
CALL SOUND (180, 270,0):: 

FOR I=1 TO 40 :: NEXT I 

1600 CALL SOUND (100,270,0):: 
CALL SOUND(100,270,0):: FOR 
I=1 TO 30 :: NEXT I :ı 

CALL SDUND (230, 270,0) 

1610 RETURN 

1620 CALL SOUND(120,290,0):: 
CALL SOUND(120,265,0):2 CAL 
L SOUND(120,240,0):: CAL 

L SOUND(120,215,0):: RETURN 
1630 CALL SOUND(180,300,0) 3: 
CALL SOUND (300, 385,0):3 CAL 
L SOUND(140,390,0)3: CAL 

L SOUND (200, 340,0):3 CALL 50 

UND (200,270,0)3: RETURN 

1640 CALL SOUND(140,350,0):: 
CALL SOUND (200,330,0):: CAL 

L SOUND (200,270,0):: RET 

URN 
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CPU 51 


CPU-Game-Hunte 
UNDERGROUND 


für den VC-20 + 16K 


Underground ist ein super Adventure! 


Nach dem Eintippen des Programmes, wird es mit’SAVE”UNDERGROUND?” auf Kassette und 
mit °SAVE”UNDERGROUND”,8’ auf DISKETTE abgespeichert! 

Vor jedem LADEN muß man folgende Zeile eingeben: 

’POKE44,28:POKE7168,0:NEW’; und dann RETURN drücken. 


In dem Spiel UNDERGROUND geht es darum, einen verborgenen Schatz zu finden, der sich in ei- 
nem Höhlensystem befindet. 


Damit der Computer weiß was er machen soll, geben wir ihm einen Befehl der aus zwei Wörtern be- 
steht; z.B. "NIMM SCHLÜSSEL. 


REMsx++222uu4223%#4 Man hat folgende Befehle: 
REM& UNDERGROUND HILF 
Beh HIICHAEL, Vorer MAGIE 
BE INVENTUR 
e: 
Bene ENDE 
REM& <C> ı384 « LEGE 
REM SCHAU 
G0SUB4988 e 
DIMR(81,4) 
DIMFSC21),S<21,2> Es gibt folgende Richtungen: 
DIMBS(19) O: OBEN 


FORT=1T081 


READR<T,1D U: UNTEN 
READR<T,2> L: LINKS 


READR<T,3) E . 
READR(T,4> R: RECHTS 
NEXT ‚Viel Spaß! 

FORT=1T021 

READF&TI 

READS<T,1D 

READS<T,2) 

NEXT 

FORT=1T019 

READBSCT) 

NEXT 

S=73 

S(168,19=INTCRND< 181) +1 

S<(17,13=1NTSRNDC1>KBL1) +1 

N=INTCRND<C1D #813 +1 

IFN=SANDS<9,1)<>-1THENG817® 

PRINT"iJ" 

PRINT'EEBBBBEBI 

FORT=1T06:PRINT "ERBE | "ENEXT 

PRINT* R 

IFR(S,1)=@THEN368 

PRINT'@EpSppmEd | | MEERE | | BEMEE| L_" 

IFR(S,2)=8THEN388 

PRINT "OSEBiuDDRE ET | TER | | BERBEERE | | " 
IFR<S,3)=OTHEN498 

PRINT" ZEDBDEBDE HRS Bi BEA 1" 

IFR(S,4)=8THEN428 

PRINT " EMDEEEEEEEE BEER HE BR 

IFS(1,1)=STHENPRINT ERRERSSREEEN eiiefieiieiiiMni:EE. EM ZoiHmnE 1” 
IFSC2,1)=STHENPRINT  EERRSEBRRBERBEE / NEE //\NLEHRREE\ /\ ARE IE" 
IFS<3, 1) =STHENPR INT ED NARBE \ NEBEN \ AR ia“ 
IFS(4,19=STHENPR INT " ENMDBBEDIEBERE« > < > < > REBERERERERNIEC"> < > < >EEEERERERERERGC > < > < >> 
IFS<4 ,1)=STHENPRINT "MMMMMEA< >  < >EERERMEIIGC > < > < >BEMEREMEERNERAC > < > < DM" 


1 
m 
3 
4 
5 
6 
7 
8 
9 


s 
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IFS(5,1)=STHENPR INT * BepPiehJrbp per“ >" 
IFS<6,1)=50RS (7,1) =STHENPR INT * AuRuiRnp mb IBD LEE Baamaı uamamı aan 


IFS<8,1)=STHENPR INT " EIelaDcDab Ip DB EHE DEIBIMERK [ON Tre Lama a" 
IFS(9,19=STHENFR INT "BRieeppppipmmewipghn |{RLı | UNE | UM "aA." za" 
IFS<18,1)=STHENPR INT " EpgiaiirbipIpIe IN BR MUB Si“ 
IFSC1L,1)=STHENPRINT " Bebsiepıp pie pp ‚— HEREIN | Mei | HMM \— 1" 
IFS<12,1)=STHENPR INT " ZieInEuppmmiipipieieid --ı REKEN ‚> HMMM | IMMMEMG| 1 BEMEME —{M" 
IFSX13,19=STHENPR INT " EieIsteisIepupgp min pp pin — Kai" 

FSC14, 1) =STHENPR INT " Bisinpepnpepmeis ini] m BEHRENS" 
IFS<15,19=STHENPR INT " EEEDEBPBBE\ EEE | | 2" 

IFS<16,1)=STHENPR INT " ERKlENIDEBEBTBIb EHE Siäm El ANDEREN | | im" 
IFS<C17,1)=STHENPRINT"ERRRPDMERBDDERE mOBMELEE VEHNEmEE | |“ 
IFS<13,1)=STHENPR INT " Opsimnpipipisgiemnn/) HEREIN |__HEURMERTN Eixm/) BRUT 1 | BEMMEE _1/ 


IFS< 19,13 =STHENPR INT " BRcEBeEaEeDrit BirEDi pe ti I II eu AS ERIC" ' 
IFS<28,13=STHENPR INT " EDEEDEpIn Ip IB Ip Dip pam BC" 
IFS<21,1)=STHENPR INT " ApsnDinpepmiieEeieiehe „A BMLEIEE "EEE DEN BEE Li“ 
x=0 

PR INT " EIABSBEETSISDEREIIDeI BEER" 

FORT=1T021 
IFSCT,1)=SANDX=OTHENX=1:PRINT"BEINZELHEITENG" 
IFS<T,1)=STHENPRINTMIDS<F&CTI,?) 

NEXT 

PRINT"UAS SOLL ICH MACHEN???" 

INPUT"" WE 

PRINT"W"ER=L:IWSCHI=" "EECA Je" 

FORT=1TOLEN<WE) 

Q&S=MIDS(WE,T,1? 

IFQ${)" "THENUSCR)I=USCRI+QS 

IFQ$=" "THENR=R+1 

NEXT 

IFR<STHEN?7® v 

PRINT"BES SIND NUR 1'ODER 2 WOERTER ERLAUBT” :GOTO688 
FORT=1T019 

IFLEFTS(CWSCL),4)=BSCTITHENS1B 

NEXT 

PRINT"ICH KANN DAS NICHT! !!":G60T0688 

IFTYZTHENI48 

REMAKKkKKOBENKKKKK 

IFR(S,1)<>OTHENS48 

PRINT"DORT IST EINE WAND! !!":GOT0688 

IFS<)33THENSEDO 

IFS<18,1)=-1THEN8EO 

PRINT"DU WURDEST GEBLENDET MUND BIST IN EINE FALL-MERUBE GEFALLEN" :GOTO6398 


IFS=67ANDS (29,1) <>BTHENS7O 12088 IFS=53ANDS(8,1)<>-1THENSBB48 
GOTOSSO 1218 1FS=55ANDS(19,1)<>OTHENI1238 
PRINT"DORT IST EINE TUER!!!":G0OT0688 1228 G0TO1248 
IFS=52ANDS (8, 1)<>-10RS=S3ANDS (8,19 )- 1 THENSS®O 1238 PRINT*"DORT IST EINE TUER!!!":G0T0688 
GOTO3BB 1248 IFS<C16,1)=STHENSBH98 
GOTOEOO4O 1258 IFS<(17,1)=STHEN68928 
IFS(16,1)=STHEN68990 1268 S=R(S,4) 
IFS(17,1)=STHENSB829 1278 GOTO280 
S=R“S5,1) 1288 IFT>STHEN1450 
GOoT208 x 12398 REMAKKKKNIMMEKKEHK 
IFT>4THENIOSO 1295 'GOSUB49888 
REMKAKEKUNTENKKKKK 1388 IFS(CT,2)=1THENIS2O 
IFR(S,23< JO THENISBO 1318 PRINT"DAS NEHME ICH NICHT! !":G0T0688 
PRINT"OORT IST EINE WAND! !!":GOTO688 1328 IFS(16,1)=STHENG9998 
IFS=1SANDS(19,1)<>-1THENI18B88 1339 IFSC17,1)=STHENSBB28 
GOTO1818 1348 IFSCT,1)=STHENI368 
G0T0859 1358 PRINT"DAS SEHE ICH NICHT! !!*:G0OT0688 
1IFS=52ANDS (8,1)<>-10RS=S3ANDS (8,1)<)-1THEN699498 1368 x=8 
IFSC16,1)=STHEN68998 1378 FORG=1T021 
IFS(17,1)=STHENG99828 En $ 1388 1FS(G,1)=-ITHENK=X+1 
S=R(S,2) 1398 NEXT 
60T0298 1488 IFX<6THEN1429 
IFT>ETHENI 188 “ 1418 PRINT"ES SING NUR 6 SACHEN ERLAUBT" :GOTO688 
REMxxx#LINKSkKHKK 1428 IFT=12THENS8978 ” 
IFR(S,3)< >OTHENI 199 1438 SCT,1)=-1 
PRINT"DORT IST EINE WAND! !!":G0T0688 1448 GOTO288 
IFS=S2ANDS(8,1)<)-1THENGBB4B 1458 IFT>1OTHEN1548 
IFS=25ANDS<18,1)<>-1THENSSO 1468 REMxxxxKLEGExKRHKK 
IFS(16,1)=STHENS9988 1478 GOSUB40000 
1FS(17,1)=STHENSO928 1488 IFS<(T,1)=-1THENISO® 
S=R(S,3) 1438 PRINT*DAS TRAGE, ICH NICHT BEI MIR!!!":60T0688 
GOT0208 1588 IFS(16,1)=STHENSBBOB 
IFT>STHEN12898 1518 IFS<17,1)=STHENS9828 
REMA##RECHTSKH HH 1928 S(T,1)=S 
IFR<S ,4)< >8THEN1298 "1525 IFS=36ANDT=STHENSBB8SBO 
PRINT"DORT IST EINE WAND! !!":GOTO688 . 1539 GOTO298 
1548 IFT>LITHENISSB 
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mm 
mm 
——————— 2 


1978 
1988 
1998 
2898 
2818 
2028 
29398 
2048 
2958 
2968 
2978 
2888 
2099 
2198 
2118 
2120 
2138 
2140 
2158 
2168 
2178 
2188 
2198 
22008 
2218 
2220 
2238 
22408 
2258 
2268 
2278 
2288 
22308 
2308 
23198 
2320 
2338 
2348 
23598 
23608 
4008 
4881 
4818 
49020 
4838 
4049 
‚4858 
4968 
4978 
4839 
4098 
4190 
4110 
4120 
4138 


4148 
4158 
4168 
aıza 
4188 
4198 
4208 
4210 
4220 
4238 
4248 


PRINT"U=UNTEN" 

PRINT"L=LINKS" 

PRINT"R=RECHTS" 

G0TOssa 

IFT>LSTHEN2 198 

REM&#% INVENTURxx x 

x=8 N 
PRINT"MSICH TRAGE BEI MIR:" 
FORT=1T021 
IFSCT,19=-1THENPRINTMIDSCFSCT) ,)iX=1 
NEXT 

IFX=8THENPR INT" -NICHTS-" 
G0TOBSDO 

IFTYISTHEN2 130 
REM#KKHSCHAUKKKACK 

G60T0398 

IFT>17THEN2189 
REM&kK KK HENDE KK cc k 
PRINT"SCHADE DAS DU SCHON 
PRINT"BSCHUESSSSSSSSSSS" 
END 

IFT>ISTHEN2278 
REMx#**%BEWEGE x K%%* 
GOSUB49998 

IFT=21THEN2238 

PRINT"DAS BEWEGE ICH NICHT! ":G0OTO6888 
IFS<16,1)=STHENGBD88 
IFS(17,19=STHENG9028 
R(3,3)=2 

G0TO2BR 
REMx#*xMAG IE KK nk 
IFS(16,1)=STHEN2300 
PRINT"ICH KANN NUR DEN 
IFS<2,1)=-1THEN2330 


BAUFHOEREN WILLST" 


1558 
1569 
1578 
15590 
1598 
1698 
1618 
1620 
1e21 
1638 
1e48 
1859 
1668 
1678 
1698 
1698 
1708 
1710 
1720 
1730 
1748 
1758 
1768 

1778 
1780 
ı7s@ 
1808 
1818 
1828 

1838 
1848 
1859 
1851 

1852 

1860 

1878 
1880 
1830 
1988 
1310 

1920 

1350 
1948 

350 
1968 


REMx#%KOEFFNE KK 

GOSUB40008 

IFT=190RT=28THEN1538 E 
PRINT"DAS GEFFNE ICH NICHT! ":G0T0638 
IFSC13,1)=-1THENIS1O 
PRINT" ICH HABE KEINEN 
IFT=28THENE8198 
IFS(19,1)=STHENI538 
PRINT"WELCHE TUER????":G0TO838 
S(19,1)=8 

soTo2ee ' 

IFT>IZTHENI778 
REMIGKKRKWIRF a onck 
sosUB4BB00 
IFSCT,1)=-1THENI798 
PRINT"DAS TRAGE ICH MICHT 
IFT= 140RT=3THENI758 
IFSc1E,1)=STHENSOHHD 
IFS(17,1)=STHENSBHER 
SCT,1)=8 

50T0298 

5<T,1)=8 

GOTO288 

IFT>13THENI1368 
REMx##VERTREIBH%* 
GOSUB4BHAD 

IFT=160RT= 17THEN1838 
PRINT"DAS VERTREIB ICH NICHT" 
G60T0688 

IFT=16ANDS(2,19<>-1 THENGSODRDO 
IFT=17ANDS (14,192 >- 1 THENGOBDOEO 
IFT=16ANDRND ( 19% .25STHENGBDBEO 
IFT=17ANDRND ( 13< .25THENEOBE®O 
GOTO288 

IFT}14THEN2819 

REM£ KK AXHILFRKKKK 
PRINT"ÜSBEFEHLE:" 
PRINT"IHILF* 

PRINT"MAGIE* 

PRINT" INVENTUR" 

PRINT"ENDE" 

PRINT"LEGE* | 

PRINT"SCHAU"® 
PRINT"MARICHTUNGEN: * 

PRINT "O=OBEN" 


SCHLUESSEL" :GOTOESO 


BEI MIR!!!":G0T0688 


BZAUBERER VERZAUBERN" 1: GOTO688 


PRINT"WEIL ICH DEN KRISTALL MNICHT HABE HAT ER MICHWERZAUBERT" 


GOTOS3998 

IFRND (193.6 THEN2368 
PRINT"BEVOR ICH IHN 
G60T063998 
G0TO288 
PRINT"I" 
POKE36874,25 
PRINT " zung 
PRINT"am von" 

PRINT" MICHREL VOIGT" 

PRINT " eis BITTE EINE TASTE 
PRINT " aka UNDERGROUND * 
GETAS$: IFAS="" THENA4BSDO 

60T04128 
FORT=1TO189:NEXT 
PRINT " SUppıppun 
FORT=1T0188:NEXT 
G0TO4958 

PRINT " Zar 26% 6 KUNDERGROUND KK KK KU" 


UNDERGROUND® 


AUNDERGROUND" 


WVERZAUBERN KONNTE 


HAT 


ER MICH VERZAUBERT" 


PRINT"DU HAST GEHOERT DASS BIN EINEM HOEHLENSYSTEMEE IN SISCHATZIE VERBORGEN 
BIST.” 


PRINT"SBBWOHL MAN DICH NICHT MBEHEN LASSEN WILL.” 


PRINT"BBEGIBST DU DICH IN BDEN UNTERGRUND. ® 
PRINT "pa BITTE EINE TASTE 2 

GETAS: IFAS=""THENA 17 

PRINT "Ar x #6 k KUNDERGROUND KK KU" 

PRINT"350 WIRD GESPIELT:" 

PRINT"WEIBINAS SOLL ICH MACHEN???" 

PRINT"39?. NIMM SCHLUESSEL*" 

PRINT'EBBEIIA BITTE EINE TASTE 

GETA: FA$=" "THEN4238 

PRINT " Jar 26 6 KUNDERGROUND Kr 1 1 KU" 
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PRINT "Maar ICHTUNGEN: " 
PRINT" MalO=0BEN" 
PRINT"BU=UNTEN" 
FRINT"ML=LINKS" 
8 PRINT"BR=RECHTS" 
PRINT"MBWEITERE BEFEHLE UNTER MBH ILF“ 
PRINT" aaa BITTE.EINE TASTE 
GETAS$: IFA&=" "THEN4319 
PRINT "dar 6 KK KUNDERGROUND x KK ci 
PRINT " aamuasıd a 
PRINT" A VIEL GLUECK " 
48888 FÖRT=1T021 PRINT” a ®, 
48818 Q$=LEFTF(WE(C2),4) PRINT" IRB BITTE EINE TASTE m 
48828 IFQ$=MID$S<FSCT) ,2,4) THENRETURN GETAS$: IFA$=""THEN4378 
40838 NEXT soTolt 
498848 PRINT"DAS KENNE ICH NICHT! !* 
490859 GOTOSSB 
sa000 DATAA,0,0,2,0,8,1,3,0,12,8,4,0,0,3,5,8,14,4,6,8,8,5,8,8,16,8,8,8,8,7,8,8,1 
8,8,8 
50818 DATAB,19;9,11,8,28,18,12,3,98,11,13,8,0,12,0,5,23,0,0,80,24,8,16,7,8,15,8,8, 
26,8,18 
50828 DATAS,27,17,9,18,9,8,8,11,29,0,21,8,0,28,22,0,0,21,23,14,8,22,0,153,33,8,25 
50838 DATAB,34,24,8,17,35,8,8,18,36,8,9,8,37,0,29,28,0,28,38,8,0,29,0,8,48,8,32 
590848 DATAB,9,31,33,24,8,32,0,25,0,0,0,26,44,8,8,27,8,8,0,28,46,0,38,0,9,37,33,8 
‚8,38,49 
58858 DATA31,0,39,0,0,8,0,42,8,9,41,43,0,52,492,0,35,53,9,45,9,0,44,0,37,0,8,47,8 
,56,46,8 
58068 DATAB,57,0,0,0,58,8,8,0,9,8,51,0,8,58,52,43,61,51,0,494,62,0,54,8,0,53,8,8, 
64,8,56 
58070 DATA47,0,55,57,48,66,56,58,49,67,57,59,0,68,58,69,8,9,59,8,52,70,0,0,53,71 
‚8,8 
50838 DATAB,72,0,08,55,73,98,0,0,74,9,8,57,8,8,8,58,76,8,9,59,8,80,69,0,78,68,79,61 
+8,69,8 
Ssaas® DATAG2,0,0,72,63,81,71,0,64,0,0,74,65,8,73,75,0,8,74,76,67,8,75,8,8,0,8,78 
50188 DATA39,8,72,79,8,8,73,88,8,8,79,31,72,0,80,8 


58118 REM RK * FALLEN * erkeirk 
xr* 


sa129 DATA/ELUM/EINE BLUME ,44,1 

58138 DATA/KRIS/EIN KRISTALL,69,1 

58148 DATA/UIAM/EIN DIAMANT,77,1 

58158 DATA/MOSA/EIN MOSAIK,36,8 

s8168 DATA/STUE/EIN STUECK VOM MOSAIK,8,1 


DATA/FLAS/EINE FLASCHE ‚49,1 
DATA/SCHL/EIN SCHLUESSEL ‚67,1 
DATA/DOLC/EIN DOLCH ‚65,1 
DATA/KATZ/EINE KATZE AUS STEIN,41,1 
DATA/ZAUB/EIN ZAUBERER,81,8 
DATA/DRAC/EIN DRACHE ‚81,8 
DATA/SCHAZEIN SCHATZ ‚9,1 
DATA/TUER/EINE TUER,SS,®8 
DATA/DREH/E INE DREHTUER ‚87,8 
DATA/FELS/EIN FELSEN,3,8 

50328 REM EEK * BEFEHLE * KurkcrkerE 
xr* . 

59338 DATAO ‚OBEN,U UNTE ,L,LINK,R,RECH 

58348 DATANIMM,LEGE ‚UEFF ‚WIRF ‚VERT HILF, INVE ‚SCHA ‚ENDE ‚BEWE „MAGI 

60888. PRINT"IDER ZAUBERER HAT MICH WVERZAUBERT DESHALB MUSS ICH AUFHOEREN" 
68818 GOTOS38H8 

60028 PRINT"LDER DRACHE HAT MICH MDURCH SEINEN FEUER- BHAUCH GETOETET*" 

698838 GOTO63998 

608848 PRINT"QICH BIN IN EINE FALL- MBRUBE GEFALLEN UND HABE MIR MEIN BEIN" 
800858 PRINT"MSEBROCHEN". 

sa969 GOTOESRAR 

88078 PRINT"SDIE FLASCHE 1ST ZER- MBROCHEN UND DIE WFLUESSIGKEIT HAT MICH 


59178 DATA/FALL/ZEINE FALLGRUBE ,52,8 
<9188 DATA/LOCH/EIN LOCH,S3,8 

581938 DATA/BRET/EIN BRETT,13,1 

59288 DATA/KERZ/EINE KERZE,66,1 

sa21a DATA/BRIL/EINE BRILLE,1,1 

sa228 DATA/SCHI/EIN SCHILD AUS GOLD,37,1 


68975 PRINT"MWERETZT" 

68988 GOTOS3998 

688939 PRINT"LWDU HAST ES GESCHAFT" 

60188 IFS<C18,1)<)-1THENGBL4O 

68118 PRINT"IWEIL DU DEN SCHATZ BEFUNDEN HAST KANNST MPU DICH AUF DIE FAULE 


68128 PRINT"EHAUT LEGEN" 

698138 GOTOS3988 

68148 PRINT"BLEIDER HAST DU DEN WSCHATZ NICH DABEI. MDESHALB BIST DU* 
689158 PRINT"MIMMERNOCH SO ARM WIE BVORHER." 

68168 GOTOSSAAB 

688178 PRINT"WICH BIN IN EINEN NEBELMBELAUFEN UND HABE MIR WBEN KOPF ANGESCHLAGEN 
6A139 GOTOSSAHH 

68138 PRINT"WPLOETZLICH SCHIESSEN WPFEILE AUS DEN WAENDENWJND TOETEN MICH“ 
68298 GÜTOS3998 S 

63898 PRINT"BNOCH MAL (J/N>" 

63818 INPUTAS$ 

E3@29 IFAS="J"THENRUN 

638308 PRINT"SCHUESSSSSSSSS" 

639848 END 
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DUELL 


für den Commodore 64 


Inmitten der malerischen Land- 
schaft des Monument Valley 
stehen sich zwei Cowboys gegen- 
über - der eine davon sind Sie - 
es geht ums Überleben. 

Wenn Sie über Geschick, Schnel- 
ligkeit und taktisches  Ein- 
fühlungsvermögen verfügen, 
wird sich der Sieg Ihnen zuwen- 
den, ansonsten ... 

Nur der Bessere überlebt. 


Zum Programm selbst: 

Die große Menge an benötigten 
Daten machte es nötig, diese 
mittels eines Hilfsprogrammes 
(das erste Listing) in sequentiel- 
len Dateien abzulegen und im 
Spielverlauf vom Programm 
/ selbst aufrufen zu lassen. 
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Hat man alles eingegeben und 
das Hilfsprogramm gestartet, 
so ist das Spiel betriebsbereit. 
Nach dem Einlesen der Sprites 
(ca. 25 sec.) erscheint der Pro- 
grammkopf, der während des 
Abrufens der Sonderzeichen 
und des Aufbaus des Bild- 
schirmmaske (ca. 55 sec.) be- 
stehen bleibt. Es folgt ein kurzer 
Vorspann, in dem die nötigen 
Abfragen getätigt werden, wo- 
rauf das Spiel beginnt. 

Die Steuerung des (bzw. der) 
Cowboys erfolgt mittels Joy- 
stick. Im Ausgangszustand kann 
durch Drücken des Joysticks 
nach oben oder unten der Cow- 
boy belegt werden. Durch Be- 
tätigen des Fire-Knopfes wird 


der Cowboy in Schußposition 
gebracht, und die vertikale Joy- 
stickabfrage dient nun zum Ein- 
stellen der Schußrichtung; auf 
nochmaliges Drücken des Fire- - 
Knopfes erfolgt der Schuß. So 
wird das schnelle Ziehen und 
Feuern realistisch nachgeahmt. 
Zum Wiedereinstecken des Re- 
volvers wird der Joystick entge- 
gen der Schußrichtung ge- 
drückt. Sobald die Magazine 
beider Cowboys entleert sind, 
wird automatisch nachgeladen. 
Doch genug der Erklärungen 
jetzt. 


Auf in den Wilden Westen!!! 
a 
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en 

MUSS EIN EIN- # 
Mar GESTARTET WERDEN, # 
-UND ZUAR “OR DER EINGABE DES #* 
* SPIELPRÜGRAMMES- UM DIE DATEN # 
* FLER SPRITES. SOHNDERZEICHEN %* 
# UND TON IM SEQUENZIELLEH # 
FILES AUF DER DISKETTE ABZU- # 


* 
ERROR 


LTHENAG 
»STRECBICHRELLEIG 


No HEN ll 


ae 


Ka 


ÜPFENZ,8.2, "DUELL ZEICHEN. 
READE: IF 1THEN3S 
£ EN =5+B: ‚60T068 
CLOSEZ 
IF 5=34754 THEHPRINT"ALLES KLAR "END 
OPEN. re 15, "S:DUELL ZEICHEN" :CLOSE1 
CPENI 3,15. "S:DUELL SPRITE":CLOSE1:ON CSONf84754-57+2> GOTO 170,156, 188 
PRINT"IHRE DATENSUMME IST UM";ABSC34754-5) 5 "ZU HOCH!" :GOT09G 
PRINT" IHRE DATENSUMME IST UM" ;ABSCS4754-5) "ZU NIEDER!" 
PRINT"EITTE NOCH EINMAL DATEN UEBERPRUEFEN" 
PRINT"UND NACH BERICHTIGUNG PROGRAMM ERNEUT STARTEN." 


5 REM SPRITE-DATEN 


REM COWEOY Rest. 
DATA 6, 15. 0, 8, 68, 192: 0, = 9, 6, 

a DATA 6, 13, 9, 8, 68, 0, 8, 69, ©, 0 
DATA 83, 8 9. 6% 0 0 6 5 
DATA 26. 8, ©, 16, & © id &, 9, 14: 
DATA 18. ©. 6, 10, ©, 9: 18, &, 8 16, 

5 DATA 10, ©, ©, 2, 192 
REM COWEOY RS.ANG. 

a Data, 19: ©: 8, 6 192, 6, 5, 8, ©, 

DATA 8. 12: 8. 8, 15: 8, 8, 15, 246, 6 

DATA 15, 244 15, 8, 8, 15, 8, 8, 18, 

DATA 10. 8. ©, 2, 8, 8, 10: 8, 8, 10, @, 

IATA 10, 8. 6. 18, 6, 8, 16, 6, 10, ©, 

Damm 10, 0, 8 3, 192 

REM COWEOY RS. FA 

DATA 8. am 263, @, D, 244, 6,0, 20. 32. Das intelligente Algebraprogramm 
ATA . 248: 0, 69. 192, 8, 15. 192, & ; für den COMMODORE 64 

192, 9 15, 192, 8 15, 209, 8, 2, 160, et 
icb, 5. D, 22. 5, G. 166, B. 5, 168. Macht die Mathematik zum Kinderspiel 
188. 0. 8, 48, 8, 8. 4, ©, B, dd, 8 
ad 15 
RS.LIEGT 

IA 6. 0, 0: 0, 8, 0: 9 0, 

DATA 0. ©, ©, 0: 0, 0, ©, a ee 

Dino. 000 2,0, 0 

DATA &: ©: 0. 0. 6 ©; 2,0 4 


er 


REM CONEOY LS.ST. 
DATA 8. 248, 6, 3, 8. 8, 88, 8, 8, &0. 8 (e8-de) 
ne: 5 &, 252. 0. & 


a DATA 6, 
: 8; 252. 0,0, 172. 0, 0S aLı 
9, 176, 8, 8, 176, 5, gi 
168. 6, 6, 168, 8, cI"C ) 
u. 85, 8. 0, 86, u Unterstützt den Mathematikunterricht 


® am Gymnasium 
» 159, 246. 8. 31 
» 240, 8, 9, 1658. 9 von der Unterstufe bis zum Abitur 


166, 8, 6, 166, 8. 
166, 8, 6, 1656. 8, 


HET WLN 


N 
DONE 


ao: 


nina 


PamMGSEDM 


a DATA 128. 12) 


REM LOWEOT “ 

. 60, 252. 8. 144, 31. 8, 28, 20. AL ae 
1338 ‚8. 2: 252. 8. 3 240, ©, 3 
1490 DATA 248, ® 3 11, 248, 8, 18, 128, 8, 18 Vom Mathematikbuch einfach in den Rechner 
1418 DATA 128, 8, 8. 6, 0. 42, 8, 8, 42, 6, 8, 42 und ALI zeigt Dir wie’s geht 
1428 DATA 8, 08. 48, 8, 8. 46, 6. 0, 48, &, 6, 46 
14358 DATA 8. 8: 248, 6, 9 ALI - rechnet verschachtelte Klammern aus 
1455 REM COWBOY LS.LIEGST ALI - vereinfacht komplizierte Terme 

za DR z ALI - zerlegt in Faktı 

1460 DATA 9, 8, 8: 8, 8, ALL. 1bat Gleichungen. ea Ungleichungen 
1478 DATA 8, 8, L) 


1458 DATA 6, CP 8 6 8 © Dipl.-Phys. Peter Ostermann, 

1438 DATA 6. 8, 8:09,08 Wasti-Witt-Str. 46, 8000 München 21 
1569 DATA 8, 16, 8, 3, 89, 48, 88, 42, 175, 89, 234 ‚Teleron Bea 7oe 33) 

1518 DATA 191. 63, 42, 68, 12 Der Autor int aeit mehr ala 10 Jahren Mathematikehrer am Gymnaelum 
1515 REM KAKTUS I 
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DATA u. 96. 8, 8. 240, D, 0, 240, 0, 4, 246, 64 

8 DATA 14, 246, 132, 14, 246, 192, 14, 246, 192, 15 
DATA 246, 192, 7, 231, 192, 7, 231, 128, 3, 231, 6, 8 
IHTA 231, u. 229. 8, 6. 255, 8, 8, 254, 8, 8 
DATA 245, 248. 5, 0. 240, 8, 8, 248, 8, 1 
DATA 248, 35, 8 
REM KAKTUS II 
DATA 8, 64, 6, 8, 224, 8, 4, 224, 8, 36, 225, 8 
DATA 36, 229. 8, 52, 229, 1, 28, 231, 3, 28 
DATA 227, 3, 12. 227. 11, 12, 231, 11, 12, 254, 11, 15 
DATA 254, 11: 15, 252, 11, 7, 248, 15, 1, 248, 15, 9 
DATA 240, 3, 8, 240, 3, 9. 248, 1. ©, 246, 1, 1 
DATA 248, 8, 6, 32, 9 
REM KAKTUS 11/2 
DATA 96. 6. 125. 96, 1, 192, 96, 1, 208, 96, 1, 288 
DATA 104, 5. 208, 232, 21, 244, 232. 21. 228. 234 
DATA 21. 204, 250, 29, 204, 242, 135, 204, 242, 131, 252, 115 
DATA 123, 248. 119, 1, 224, 126, 1, 224, 126, 1, 224, 120 
DATA 1, 224, 128, 3, 248, 120, 6, 8, 126, Q, 8, 120 
IATA 8. 8, 256. 8, 6 
REM. DIAMOND 
IATA ©. 0. 8. 8. 9. 6, 8, 0, 9, 7, 255, 224 
DATA 3, 4. 48, 25, 166, 268, 48, 177, 164, 85 
DATA 74, 36. 162, 68, 73, 255, 255, 255, 83, 36, 138, 41 
DATA 42, 128,- 21, 171, 88, 11, 105, 144, 5, 82, 32, 2 
DATA 178, 64, 1. 84, 128, 6, 181, ©, 0, 86, 6, 8 
DATA 44. 9. 8. 24. 8 
REM COWBOY LS.LAUF 
DATA 8, 15, 8, 0, 69, 192, ©, 5, ©, 9, 3,64 
DATA 8, 13, 6. 6, 63, 8, 6, 63, 8, 8 
DATA 257. 208, 8, 207, 208. 0: 79. 8, 8,.74, ©, 8 
DATA 18, 128, 8, 18, 125, 6, 8, 160, 8, 8, 1650, 8 
DATA 168. 1650. 8, 168, 166, 3, 1686, 160, 8, 8, 166, 8 
DATA 6. 156, 8, 8, 658 
DATA-1 


Ren SONDERZEICHEN 


DATAG,8,24, 24,126, 126, 24.24,0,36, 16, 17, 22,68, 254,31,48,64 

DATA?3, 255, 255. 255, 255, 259, 255, 255, 289, 74,6, 1,1, 1.15, 11,1 

DATA75.8.128.128,128, 248, 128, 128, 128,83. 1,1.7,31:63,63,127,0 

IATASS. 128, 128.224, 248,252, 252, 254,8,86, 63,63, 127,63,63,63, 127,127 

DATA3Z,1:3,7.7:31,31.63, 255.94, 254,254, 259, 255, 234,252, 252,254 

DATA187, 1.3, 15,83, 127, 127.255,55,189,8,8,59, 63.63, 127, 127,127 

DATA118.6. 7,195. 231,247, 246,246, 246. 112,8,8,6, 28, 126, 126. 126,254 

DATA113,127.63,63, 235,255, 255, 127,127, 114, 231,231: 247.247, 255, 255, 255,255 

-BATA115,254. 25 2.252 ,254:255, 285,254 ,125,128, 192, 224, 224, 248, 248, 252,285 

DATA127,8,128.132, 240, 252,252, 259,231 

DATA123.159. 159, 159, 135.97,29,4.4 

DATA123,8,8.9,0.8,195, 35,24 2270 DATA148,191,191,159, 79, 71,35.24,7 

DATA139.4.4,8,16,33.233,59,28 2288 DATA141,32,53,.1,1,249,249, 242.228 
& DATH131,32,32,16,8,132,132, 78,56 2238 DATA142,9,1.249,19,19,39.33, 73 

IATA132, 224.24. 196. 226.242, 249, 253,253 2306 DATA143,7.24,35, 79,159, 159,159, 79 
5 DATA133,227.25,4,2,2,1,1,1 2318 DATA144,228. 242,249, 249,1,1.63.32 
A DATA134.4.4,25,97,135, 159,159, 159 2325 DATA145, 79.159.159, 159, 79,35,24,7 

DATA135, 24,36, 195,8.9.8,8,8 2330 DATA146,79,33:39.19,19,249,1,9 

IATA126.1,1.1,2,2,4:.25.227 2348 DATA147,1399,152.32,64,64,128, 128,128 

DATA1 ‚233,249, 242.226,196,24,224 5866 DATA-1 

IATA138: 243, 249, 249, 225, 134. 152, 32.32 

DATA139.128,128.128.64.64,32, 152,199 READY. 


GOTO1S58 

REM _TONGENERATOR :SCHUSS5SPIEL MIR DAS LIED vOM TOD 

51=54272: POKESI+5,8:POKESI+5, 58: PÜKESI+24, 15: PÜKESI ‚40: POKESI+1, 208 

FORSS=1STOBSTEP-1 :POKESI+4, 129: POKESI+24,8$:POKESI+1 , 200-5%55 

NEXT :POKESI+4. A: RETURN 

51=54272: POKESI+3; 13#16: POKESI+6, 15%16+15:POKESI+24, 24 !POKESI+23, 15K16+8 

FOKESI+12, 15%16 :FOKESI+13. 15X16+15:POKESI+11,65:POKESI+93,8  :POKESI+18,15 
5 POKESI+4.33_:FORA=8TOSG:POKESI,33:POKESI+1,52:POKESI+?,45:POKESI+8,52: NEXT 

FÜRA=8TOSE : POKEST 181 :POKESI+1,41:FOKESI+?, 187 :POKESI+8, 41: NEXT 

FORA=8TE159 : FOKEST 58: POKESI+1 49: POKESI+? 63: POKESI+8.49: NEXT 

FORA=ATOSB :POKESI, 33: POKESI+1,52:POKESI+7, 45: POKESI+8,52: NEXT 

FOKESI+4,8:POKESI+11.8:RETURN 


REM HAUPTFRÜGRAMM 2 SPIELER 


188 19=8: 19=8: IA=: JASB:POKEV+1, 174: POKEV+3, 158: 1174: Jv=158: IP=8: Jp=g 

185 I=PEEK(563295 : J=PEEK(565321) 

157 IFFEEK.(203)=3THENGISUESBOG 

118 IFE TANDIEI=OANDIS=IANDIP>OTHENMSIY TU=1: IP=IP-1:MP=IP :GOSUB3B:ONCIA+ZIGOSUB4 
24,568, 456 x 

128 IF<JANDIS>=GRNDIS= LAND IPIBTHENN=JIF: JU=1: JP=JP-1:MP=JP :GOSUB3B:ONCJA+ZIGOSUB4 
39,529.520 R 

138 IFCIANDIES=AANDIS=ATHENIS=1:POKEZB48, 254 
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148 IFSJANDIE>=GANDJS=SATHENJS=1:POKEZ841 , 259 

158 IFCIANDI>=BANDISSOANDIY>142THENIYSIY-3 

158 IF&JANDI>=ÖANDJIS=OANDJT>142THENIFSIV-3 

176 IFCJAND2>=8ANDIJSSBANDIP7LZ3OTHENJY=J7+3 

186 IF< IANDZ>=ÖANDITSSOANDIFSZ3ATHENTF=17+3 

198 IFCJANDID=BANDIS=LANDJA>-1 THENJA=JA-1:ONC JA+2>GOSUB38, 320,340 

286 IFCIANDI>=SANDIS=LANDIA>-1THENIA=IA-1:ONC IA+ZIGOSUB36B, 380,498 

218 IFCJANDZ>=OANDFS=LANDJAZITHENJASJA+1 :ONCJA+ZIGOSUB3HB, 328,349 

226 IF TANDZ>=SANDITSSLANDIA<SITHENIA=SIA+1 ON IA+Z)GUSUBS3EB, 380, 490 

238 IF IAND4>=8THENIS=8:POKE2048, 255 

248 IFS.JANDSI=STHENJS=9:POKEZ841,251 

258 IFIP=OANDJP=STHENGNSUB3088 : IP=8: JP=8:WS=$:GOSUB7SG: WS=T :GOSUB?769:60T0105 

268 POKEY+L.TY:POKEY+3, J7:60T0185 

294 : 

235 REM ARMBEWEGUNG IN SCHUSSPOSITION 

296 

306 PV=250%64: POKEPY+15, 96: POKEPV+18, 44 :POKEPY+21, 15: POKEPV+24, 3: POKEPY+27, 

318 POKEPY+39,6:RETURN 
PV=256#64 : POKEPY+15. 8: POKEPY+18,8:POKEPY+21, 111 :POKEPY+24,47 
POKEFY+27.8:POKEPY+38.8:RETURN 
Py=256%64:PÜKEPV+15.8:POKEPY+18, 8: POKEPV+21.3:POKEPV+24,15 


PÜKEPY+27, 185: PÜKEPY+38, 32: RETURN 3 

Pv=254#64 PÜKEPY+11.6:POKEFY+14,52:POKEPVY+17, 248° POKEPV+28, 192 
POKEPY+23,3: PÜKEPY+25, 8: RETURN 

PY=254#64 : POKEFY+11. 0: POKEPY+14,0:POKEPVY+17., 246: PÜKEPVY+28, 244 :POKEPY+23,8 
POKEPY+25,8: RETURN 

Pv=254#64 : POKEPY+17, 192: POKEPV+28, 248 : POKEPV+23. 54: POKEPY+26,4 
POKEPY+11,8:FOKEPY+14,8:RETURN 


REN ABFEAGE UEBER IM WEG STEHENDE KAKTEEN 


IFC TV 185SAHDITLZO7 ORG TF>ZLLANDIYLZ21 YTHENGOSUBE1G 
IFI7=236THENGOSLIES1H 
GOSUBESE: TU=6: RETURN 
IFETVELHLANDIVELSTIORS TV LESANDIYCL91 PD THENGOSUBELG 

za GOSUBESB: Il=0: RETURN 
IFCITLSPAHDITLZOBIORCJVY>Z1FANDIYCZ3LITHENGOSUBE1G 

309 GOSUBE4E: Il=6: RETURN 

S2a IFCSTSLHANDIVLSSIORCIV>LSTANDIPC1EIPTHENGOSUBE19 

538 GOSUBE4A: IU=8: RETURN 

55a IFCM>L4LANDMZ147IORCM>L43ANDNM<15S> THENGOSURERB : GOTOSEB 

585 IFEMPLSSANDMELSZIORCMPLSSANDM<189> THENGOSUBEHB : GOTIS3H 

578 IFCM>LSSANDMSZBTDORCM>Z1 LANDMSZ31 > THENGOSUBEIB: GOTOSSH 

375 MY=1 

558 IFIU=1THENGOSUBSSG: TU=8: RETURN 

5368 IFJU=1THENGOSUBS4B: JU=8 

535 RETURN 

5397: 

295 REM TREFFERAEBFRÄGE 

99: 

sag IFABSCIY- IT) L7THENGOSUBSZG : RETURN 

565 RETURN 

51a IFABSCABSE IY-J73-523<7THENGOSUBS28 : RETURN 

515 RETURN 

520 IFIUSITHENPOKE2B41 , 243: FORN=1T0158: NEXT :POKE2841 248: TU=8:8=$+1:W$=$:G0SUBES 

5: G0SUB759: RETURN 

538 IF.IU=1THENPOKE2849,, 253: FORN=1T0159 NEXT : POKE2849, 252: JU=8: T=T+1:WS=T 'GOSUBS4 

a: GOSUE?EB: RETURN 

5 RETURN 


REM ANZEIGE WON MUNITION UND YVERLETZUNGEN 


PRINT" RI" ; :GOTOSEO 
PRINT" SIRISIAISISTATSTBIKTKIRTRUSTRUN 5 
LFMP=?THENPRINTSPCC31> "80 wrae0zNd ";:RETURN 
IFMPSSTHENPRINTSPCCSI SA. Re u " 
IFMP=STHENFRINTSPECHI REED nn ll 
IFMF=4THENPRINTSPCCHII ME ur E 
oa IFMP=3THENPRINTSPEEZID EG 
718 IFMP=2THENPRINTSPCCSLI MEER. more oe e 
7258 IFMP=1THENPRIHTSPCEZID TEN u wo "5 RETURN 
738 IFMPSOTHENPRIHTSPCLS12'"E9 WEOOENd "RETURN 
754 PRINT" SIeleteleieleisiel" ; : GOTO7ES 2 
7655 PRINT" SIelelzleisIaistelaisisisisistaintetetate" ; 
765 IF WS=8THENRETURN 
778 IFNS=1THENFRINTSPCC31 RR" : GOSUBS28 : POKEV +1, 178: POKEV+3. 210: [7=170: Jy=218 
: RETURN 
783& IFWUS=ZTHENPRINTSPCE 312 RRBENE" : GOSUPS20 :POKEY+1, 188: POKEVY+3, 150: I7=130: Ir=1 
55: RETURH 
738 IFWS=3THENPRINTSPCE21 >" WeRanenE" 
Sad PRINTSPE«31H " :PRINTSPCES12 "Te 2" 
255 PRINT" Male GG A M EibbbBlD Y E R":GOSUBSS 
518 POKE138.8:WAIT132,1:RUNdZEG 
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4 FORSS=1T02999 : NEXT: POKE2049, 255: FOKEZA41 ,251:18=9: J$=@:RETURN 
> REM HAUPTPRÜGRAMM FUER SPIELER-COMPUTER 
se : JA=8: POKEY+1, 174: POKEV+3, 159: 17=174: J7=158: IP=8: JP=8 


357 ; 3THEHSOSURSASE 
28,5 ME AEIE SANDTS=1ANDIPZATHENM=TY: IU=1: IP=IP-1:MP=IP :GÜSLUE3A:ON< IA+Z>GOSUB4 
28.55 = 
IF&TANDIE>=GFNDITS=ATHENIS=1 :POKE2B40, 254 
IF< IANDI>=SANDISSOAHNDTT>142THENTY=IT-3 
IF£ IANDZ>=ÖAHDISSOAHDTTS23STHENTT=I17+3 
IFCIAHDI FIHDIS=1ANDIA>-1THENIA=IA-1:ONC IA+2)G0SUB358, 338, 408 
IF& IANDZS=AANDIS=1ANDIAZITHENIA=IA+1 ON IA+ZIGOSUB3SH, 330,499 
IF< TAND4>=ETHENTS=%: POKEZ849, 255 
EN E IP=8: JP=8:45=5: GOSUB?56:WS=T:GOSUB76ER: S0TO9gS 
POKEY+1, 17 


Ren COMPUTER: TAKTIK + BEWEGUNG 


LEIW+CSENE JY-Ir3#4) 
IFJIP=BANDIYLCISS-RNDCRIHINTC1. SHSPIIANDIYLIFOTHENKY=4: RZ= 
IFJP=ARND.IY>CZ15+RNDCDI#INT1.5#5SP ANDI YIZOSTHENKY=4: Henne 
IFXY>OTHENAF=SRY-1: Vs IV +HZ : FOKEV+3, J7:MY=R 
IFJP=OANDABSC I'Y-. IVP>AANDRNDC@)CCSP/LO>ANDLSZZIANDLIISITHENTYSL: POKEV+3, Ir: MY 
=0:60T0995 
1888 IFABSCIr- IT >4ANDRNDCDI<SCSP/LGIANDJPIBTHENIY=IP-CSCHEIT- 17739 :POKEV+Z, JM 
v=g 
18685 IF MY=1ANDSJY-1S> 141 ANDE J7+16IT231 THENAY 4 KZ=SGHERNDEB)E19H9-509) #4: MY=B 
1019 IFABSC 17-173 CSANDMY=ARNDRENDCAILCSP/LO>ANDIPIOTHENA3O 
1929 GOT0O395 
19839 POKEZa41 .250:M=JY: JU=1: JP=JP-1:MP=JF:G0SUB30 : GOSLPSEA :POKEZO41,251 
1049 GOT0SH5 
1797: 
1798 REM VIC-II-REGISTER INITIALISIEREN 
RI: 
1898 v=53248: POKEV+21,8:PRINT"NI" :POKES3288. 9:POKES3231,9 
1893 OPEN2,8,2, "DUELL SPRITE,S,R" 
1865 FORL=255T0243STEP-1: FORA=9TNGZ : INPUT#Z, B$: POKECKE4+HA, VALCBEI :NEXTA,C 
1888 CLOSE2:POKEY+21.9 Ä 
1309 GOTN 4998 
1818 POKEV+16.9: POKE20948, 255: POKE2941 , 251 :POKE2942, 247 : POKE2943, 247 
1820 POKE2944 , 246 : POKE2845, 246: POKE2946, 245: POKE2947 , 245 
1825 POKEV+28,3 
1838 FORA=41T046 :POKEY+A, 9: NEXT : POKEY+37 , 9: POKEV+38., 8: POKEV+39. 6: POKEY+49,2 
1848 POKEY+8, 199: POKEV+9, 159: POKEV+12, 124 :POKEY+13, 169 
1859 POKEV+4, 194: POKEY+5, 218: POKEV+6, 165: POKEV+7 , 148 
1868 POKEY+1B, 130: POKEV+11,185:POKEV+14, 154 :POKEVY+15, 195 
1878 POKEV,69:POKEV+1,174:POKEV+2, 200: POKEY+3, 150 
1998 POKEY+21 255: G0SUB3969 : ONGWGOTO9HB, 168 
19977: 
1998 REM SONDERZEICHEN INITIALISIEREN 
1999 : 
2208 POKES6E2324, PEEK (56324) AND234 : POKE1, PEEKCLIAND2S1 
2818 FORI=DT02947 :FOKE12#1024+1. PEEK.(53248+13 :NEXT 
29828 POKE1,PEEK<1)NDR4 :POKES6E334 , PEEK(56334>0R1:POKES3272, CPEEK 33272) ANDZ4S>OR12 
2925 OPEN2,8,2, "DUELL ZEICHEN.S.R" 
29230 FORC=6TD33: INPUT#2,A$: FORB=9TO? : INPUT#2, DE 
2032 POKE12#1024+VALCA$)#S+B, VALCDEI :NEATB:NEATC:CLOSE2 
2040 GOTI4209 
2397 : 
2998 REM BILDSCHIRMMASKE 
2399 : 
POKES3238,, 9: POKES3265. PEEK(533265>?AND239: POKES3281 , I 
PRINT'"® 5A I— 
PRINT" 
PRINT" m"; 
PRINT" Sa wu =; 
PRINT" 2a mr md 3; 
PRINT" za m ed m"; 
RRINIIT HH za won m"; 
PRINT" mr warn 
PRINT" 4 59 ı8 a; 
PRINT" ur Y— w; 
PRINT Hi En lem h 9 mn 
PRINT"; Ba 
PRINT". 
PRINT",34 
PRINT";,I4 
PRINT".IA 
PRINT", 
PRINT", 
PRINT",34 
PRINT";34 
PRINT";39 


arg Erg 
AED AD PS 


wu m; 


mu: 022 
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nn ı; 


3228 
3230 
3248 
3258 
3260 
32780 


PRINT"A4 

PRINT"4 

PRINT" 

PRINT"4 

POKE2923. 169:POKES6295,6 
POKES3265. PEEK (33265? 0R165 :RETURN 


3997 : 


3938 


3999 : 


4888 
4920 
4838 
4940 
4858 
4068 
4979 
4980 
4399 
4100 
4118 
4129 
4298 
4205 
4218 
4224 
4238 
4248 
4258 
4260 
4279 
4289 
4238 
4390 
4318 
4345 
4350 
4355 
4369 
4365 
4370 
4375 
4388 
4398 
4395 
4498 
4418 
4420 
4438 
4435 
4449 


REM VORSPANN 


POKE2848, 244 : POKEY+39, 1:POKEY+23/ 1: POKEY+23, 1 

POKEY, 147 :POKEY+1, 114: POKEY+21 , 1: PRINT"J" :POKES3299,8: SE 8 
PRINT " SKISteinIndrten aAmo" 

PRINT" al N" 

PRINT" RT =D" 

PRINT" w+ 134 m +" 

PRINT" ws Ta BuE" 

PRINT" I a ni 

PRINT" Fo" 

PRINT" =. TECHN 

PRINT" MM NZ EBSLSGTT. ze" 

GOTD2898 

POKES3265 , PEEK.£532657AND239 : POKES3281 , 14: POKES3280, 8 

PRINT" ME u-Fe_ -FE_F8 Pe DE A032 MB" 

PRINT" m _ a a2 Ja Ju me 2 Je 3 we 

PRINT" neuem amıam a5 am aa" 

PRINT" ana gmaıaı neun m la ma" 

PRINT" “BCE CRCR Ca GE Ma TECH DR 

PRINT" Ar aaa aaa am Hra_ mm _ am _" 

PRINT" A ug gem umge ma m" 
PRINT Eger nd IAKH MI IAKR I IAKR BI IA KR m" 
PRINT" mg Haar ea Tu 8 E32 mr m" 
PRINT"AIT TEE EEE En" ; 
FORG=1T012:PRINT"A4 w" ; :NEAT 
PRINT"4 m; . 
POKE2823. 160: POKESG295:8 

V=53248 :POKEV+28, 1:POKEY+37 ,9:POKEV+28, 8: POKEV+39, 2:POKEV+16,2 
POKEY+23, 8: POKEY+29, 9: FORA=49T046 : POKEY+A. 9: NEXT 

POKE2949, 255 :POKE2841 ‚247 :POKE2942. 247 :POKE2843, 247 :POKE2044 , 246 
POKE2445,, 246: POKEZB46 , 245: POKE2047 , 245 

POKEY+8, 199: POKEV+9, 178: POKEY+12, 124: POKEV+13, 130 

POKEY+1R, 226: POKEY+11, 185: POKEY+14 , 244: POKEV+15, 195 

POKEY-+2, 45: POKEV+3, 169: FOKEY+4 , 58: POKEV+5, 159: FOKEY+6, 165: POKEY+7 , 218 
POKEY. 1:POKEY+1 , 200: POKEY+21 255 

POKES3265, PEEK(S225570R16 

FORF=1T068 : POKE2944 243: POKEV, 1+Al:POKE2949, 255: NEXT 

FORLC=1 10498 : NEXT : POKE2948, 254 : FORC=9T0298 : NEXT : GOSUB369 : GOSUESE 
PRINT"A" :FORC=1TO93:PRINTTABC31D" ":NEST:PRINTTABSS1I"E - AREA." 
PRINTTAB<21 "m 4 ®" :FORC=1T0498: NEAT 

G0S1JB3A : PRINT" A" :FORC=1T03:PRINTTABC26Y" "NEXT 

PRINTTAB<25Y" a -AE— MAR" :PRINTTABCZSI" 4 TE" :FORC=1T0498 : NEXT :GOSUB3O 


:PRINT" A" 


4459 
4468 
4470 


FORC=1T09:FRINTTABL29?" ":NEXT:PRINTTABC19)"m „Aa Ae" 
PRINTTAB« 193" 17 Te" :FORC=1T0498 : NEXT: PRINT" A" :GOSUR20 
FORC=1T09:PRINTTABK123" ": NEXT :PRINTTABC13) "a —" 
PRINTTAB<12> "m m m ®" :FORC=1T0409 : NEXT : 
GOSUB3A : PRINT" A" :FORC=1TOI:PRINTTABS?P" ":NEXT:PRINTTAB<TI"E- MER" 
PRINTTAB<7)"B4 a" 

POKE2948, 255: FORC=OT0348 : NEXT 

PRINT" Atem =cC) BY DIAMOND SOFTHARE ":G0SUB55:FORC=1TOBBR:NEAT 
PRINT" zrma GEGEN DEN COMPUTER (1) + >RETT" 

POKE198. 9: INPUT" ODER EINEN PARTNER (2) + >RETZTI" GH 
ONGWUGOTO4SER, 4585 

G0T04529 

Al$="BSHERIFFA ":AZ$="WPLAYERR " 

PRINT " Denn WELCHE SPIELSTAERKE SOLL DER " 

POKE198, @: INPUT" COMPUTER HABEN (1 BIS 5? + >RETZI":SP 
IFSP>SORSPZLORINTESFIC>SPTHENA56R 

SP=SP#2:G0T04538 

AIS="BPLATERA B1 3" :A2$="BPLAYERA IR" 

FORA=69T0254 : POIKE2949, 243: POKEV, 1+fl:POKE2044, 255: NEXT 

POKEY+16., 3: FORA=AT088 :POKE2849, 243: POKEY, 1+fl: FOKE2949, 255: NEXT 
FORC=1T0488 : POKES3265, PEEK (53265) AND239: GOSUB33B:G60TL1819 

PRINT" SUUDBRDRBBRUBBRGP Fi U S E":POKE198.0:WAIT198B,1 

PRINT" Am ":RETURN 
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Das Programm “Meteor Storm” ist in 3D-Grafik dargestellt und enthält viele Toneffekte. Wie es der Name 
schon sagt, handelt es sich um ein Weltraumspiel. Man muß versuchen, die Asteroiden mit dem Laser zu 
zerstören. Ein Radar zeigt den Abstand zwischen dem Raumschiff und den Asteroiden an. Weitere 
Erläuterungen sind im Programm eingebaut. Uns bleibt nur, Ihnen “Toi,toi,toi” beim Eintippen 
und viel Spaß beim Spielen zu wünschen. 


1 REM Meteor Storm © von Mart ı2 MEINT, „I “ 
„uetf 6934 Strombera: BORDER 5 ls ER "5 Br 36, Erz | KB: DrEBRS IE Takte 
2 PRINT INK : neiR a FOR n=1 T0_ 28: razaga BET ler aeras 
ü x.U: 8,128,255,91 U,U,U,128, 
AD | ER n ‚31,7,8,8,U,U,0,128,128 
eaß Loy! OEr =2T ‚425.192 ,18 192,284 248/255 0 0.0.3 
TORE 17: 4 : 1i0'DATA 2,2128, 182,231,255,2 
Reh Loge: 2 3 5,255,2,2,2,2,192,248,68,355,0, 
Reäß por 'n=1 TO 18: 7,14,2,2,2,2,848,224,188,2,2.2 


z 
DATA z,3 ‚„15,3] 
2,240,243 254 FH 
28,192,115,31.7, 


5 
3 


Br 
Fi 


nm- PNWME- - mr 
Rs 


2 
5 


TE 
PER oem 
EFT 


=> AU DÜMNERIN. 
ENSEUS- 


u 
2m 
> + BEOOVODERN 


N» NDEFPDDEND- 


N 
br BRMMMN- mer 


Or: = 


255 
Iss n 243 ', 252 . Pr Pr f 243 D 


oO 

NT I r 

Ne 2% 1s7as8’ 
NK 178 DATA 195,153,60, zen lo en) 


PRINT I 
Mit dem Las 


3: wat Ms 93: : 248,186, 
a ONE 5 1321 ,118,105.258 184. 


art 5, ‚ar ‚12,15: "W';AT ; . ? In BRINT U 288 BORDER 5: INK S: 
PR tar aa, ei a ; ER BRENNT, 1 

ar"is,isn = a“ 18,15} | t e. eine Tas 
PRINT INK ® 
mit den lesen: 
| : PRINT ZINK 05%: - link 

PRINT 1oD "pP - rechts" 
INK 2; "u - obenn: PRINT, ink 

"B 


3 unten“: PRINT INK 28; 
Lsser": PRINT : PRINT : PRINT IN 


Dune. 
ner unm 


one 
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OR 0 20: PRINT Ba 
AT "U+LBSRND u FSDERND 
SESSRRZIT INK 3; 


REPARE_FOR_ 
"METEOR 5 


El LET bS$=b$+a$( TO 2914" ": N 
KT u 
ach PEINT QUER U; FLASH z;AT_ 18 
"PREPARE FOR FLIGHT INTO 
‚18; "METEOR STORM" 
@ LET 0%=9: LET 0,y=15 


LET. .ysis;: 


LET nn=nn+u 
+RND#17: LET Ny=U+R 


a5 ZuKeys 
i/7+nm/58 
THEN G0 TO 
co SUB 
fein] sun s080+100sINT ms 
(X ,y) -5#INT_{ 
BuRze THEN LET % 
R a$="0" 


yi THEN en y 
1B28 IF y>338 THEN LET 
18538 LET x=0x+ia$="x 
1948 IF x<u_THEN LET ] 
1958 IF_x>17 THEN LET x=u 
ee) LET_Y=ATTR (x,9)-5#INT (ATT 
R „yirsl 
ioro” PRINT OVER vu; AT ox, 
oy;" INK 5 
1090" LET 0x : LET ov= 


lıoo IF 8%<>"8" THEN 60 TO 900 
1288 FOR eh TO 6: BEEP i#i/188, 


THEN so To 
IF Kiez. PTHEN LE 


IF yi<z THEN LE 
IF x2>138 THEN L 
1280 OVER_ u: FOR i=u T 
“.85,3: PRINT AT xy 
l,u: PRINT AT xl, 
BR" AT 2,41 
ER zZ 
DIM si18}: LET ni= 
! i=INT ms TO zZ STER -u 
: 50 SUB 4089+12 


INK S;AT 


&0 To’ 560 
35; INT ms BO aW EN PRINT INK 


A „THEN PRINT INK 


3; r\ 
\ Ir’ INT mS>4 AND INT me<5 TH 
EN PRINT INK u;AT 20,15-2% InT ns 


3038 35, een =5 THEN PRINT INK 
THEN RETURN 
R u; INK mi;AT u 
u 
THEN RETURN 


Ir 
a129 ET OVER u; INK mi;AT mx, 


THEN RETURN 
u; INK mi;Ar 


4238 RETU N 

“382 IF si4} THEN RETURKM 
+318 LET mx K+U 

4320 PRINT QUER u; K mi;AT Mm 
MyS"& "AT nxX4,my 

4538 LET si4)=u 

4342 RETÜRN 
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4488 IF s(5j=u4 THEN RETURN 
4418 PRINT OVER U; INK mi; AT 
my; "@;AT nx4,ny; 

adbo LET s (5) =u 

4438 RETURN 

4580 IF s (6) =u THEN RETURN 

4518 PRINT OVER i 


N 
4588 IF s(7)=u THEN RETURN 
46 en OVER u; INK mi;AT 


N 
4788 IF si} Bu" THEN RETURN 


4728 LET myB= agH2: IF nyö>3l THE 
N_LET my5=31 
4732 LET nx5=mx+2: IF nx5>15 THE 
N_LET nx=13 
4748 LET myS=ny-U 
47508 PRINT DVER u; INK mi;AT mx2 
"a ";AT nx,my3;! H MX Mm 
AT mx4,ny3 AT mx4,M 


AT mxS,my; 
LET s i8j =u 


F mxi1<z THEN 
ner ay2= =my-2 nI<Zz THEN 


4339 LET my7=my+3: #y>31 THEN 
LET nmy7=31 
4548 LET mx6= 5 nx8>18 THE 
N_LET nx5=13 
43859 LET mx5=mx +3: nx6>18 THE 
N LET mx65=18 
RINT_ OVER u; zus mi;AT mxı 
;AT mx2,my3; "u"; A 
JAT mx ‚ny2 
; AT mx ,my 
b "SAT RX4,myB; 
";AT mX4,myS ; nX4,my7; " 
AT mx ,mys; ; XS ng 


4838 RETURN 
5080 FOR i=z TO 16 
neie PRINT DVER u; FLASH U;RAT i+ 


SE TO 38+i+30) 
Sa28 NEXT 


PRINT FLASH u; DIERT u; Annae 


DIM s (18) 
Ber i=u TO 48: BEEP RND/1B8, 
d8sRnD-5 


IF i»31 THEN 60 SUB 5908-18 


NEXT i 
Sal, en AED v4 


165 
BRINT ZuER u; INK 2; FLASH 
b#(38+i1+1 TO 30+1 +30) 


PRINT FLASH z; INK 5; DVER 


‚Li er SAT, .e; 


PRINT UVER U;AT 29,4; "4" 
LET Li=li-u 
PRINT OVER z; INK z;AT 21,2 


oen STOP 
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Kniffel ...s.2. 


"Kniffel” ist ein Würfelspiel für den 
Sharp MZ-700, welches dem Original- 
spiel nachempfunden wurde. 

Nach dem Starten des Programmes er- 
scheint das Titelbild. Drücktman dann 
die ”S”-Taste, so kann das Spiel begin- 
nen. Es können sich bis zu vier Spieler 
am Spiel beteiligen. Sind deren Namen 
eingegeben so gilt es, mit 5 Würfeln - der 
Computer ermittelt deren Augenzahl 
mit Hilfe der RND-Funktion - mög- 
lichst viele Einsen, Zweien ... Sechsen 
zu würfeln, außerdem eine Straße, 
Full-House, Kniffel und anderes mehr. 
Hat man drei Würfe hinter sich ge- 
bracht, so fragt der Compsiter, was 
notiert werden soll. Nach richtig er- 
folgter Eingabe ermittelt der Computer 
die erzielte Punktezahl und zeigt diese 
entsprechend an. 

Dann wird der ”Knobelbecher” an den 
nächsten Spieler ”weitergereicht”. 

Hat man bei den Einsen bis Sechsen 
mehr als 62 Punkte erwürfelt, so erhält 
man einen Bonus von 35 Punkten. 
Gewonnen hat schließlich der Spieler, 
der am Ende einer Runde die meisten 
Punkte erwürfelt hat. 

Weitere Angaben zum Spielablaufsind 
auch aus den Programmzeilen 3190- 


3640 (Spielanleitung) ersichtlich. 
Viel Spaß!!! 


Variablenliste: 

N$(4): Spielernamen 

A$(13,4): Feld, auf dem festgehalten 
wird, was jeder Spieler schon gewürfelt 
bzw. noch nicht gewürfelt hat 

W(5): Im ”Knobelbecher” befindliche 
Würfel 

X(5): Entnommene Würfel (Hilfsfeld) 
Y(5): Entnommene Würfel 

P(4): Gesamtpunkte der Spieler 
P1(4): Cursorposition (x-Koordinate) 
P2(13): Cursorposition (y-Koordinate) 
BO(4): Feld, mit dessen Hilfe bestimmt 
wird, ob ein Bonus gegeben wird 
KO(4): Feld, auf dem festgehalten wird, 
ob ein Spieler schon alles von 1-6 ge- 
würfelt hat. 

SP: Anzahl der Spieler 

AN: Anzahl der im "Knobelbecher” 
verbliebenen Würfel 

Kl: Anzahl der bereits entnommenen 
Würfel (AN+KI=5!) 

S: Anzahl der Würfel, die bei einem je- 
weiligen Wurf entnommen werden 
sollen 

NO: Verschlüsselungsvariable, mit de- 
ren Hilfe dem Computer signalisiert 


12 REN RRRRRRRRRRRRRKRRRRRRRRIKKRRKKK 


28 REM xx 
38 REM xx 
42 REM xx 
56 REM xx 


KSNSDEF@ESESE 
CC) Klaus Leitloff 


xx 
xx 
xx 
xx 


68 REM RREKKRRERRRRRRRRRRRKRRIRIHHK 


?8 REM %* TITELBILD xx 

88 REM KRRKRKKRKKKKKKK 

98 CLS:COLOR,,5,8 

188 FOR I=1 TO 5 

118 PRINTLB, 1J"" ;SPCC48) 

128 NEXT I 

138 FOR I=1 TO 5 

148 PRINTL®,?-11"" 5SPCC49) 

158 NEXT I 

168 PRINTL?,2]"8 

8388 c5 

178 PRINTL?,2]"B 
8384 C5 

188 PRINTL?,21"8 

BSABCC7BASC EC893 C5 

198 PRINTL?,2J"0 

c? Ecc4 84 

288 PRINTL?,2]"B" ;SPC(48) 

218 PRINTLS,2]"B" ;SPCC48) 

228 FOR I=1 TO 4 

238 PRINTLB, I+2]"B" ;SPC(49) 

248 NEXT I 

258 FOR I=1 TO 3 


c? 89 


c789 


64 CPU 


" 8388 
17262. 


C784 C78984 E2C7 


C? 84C7 BE E2C7? 


wird, was ernotieren soll,underinsent- 
sprechende Unterprogramm ab Zeile 
2480 springt 

PU: Punkte für das jeweils Gewürfelte 
O$: Eingabe, was notiert werden soll 


Programmaufbau: 

70-300: Titelbild 

310-330: Abfrage auf Spielanleitung 
360-480: Eingabe der Spielernamen 
490-770: Bildschirmaufbau 

780-860: Besetzen der Felder Pl, P2, 
A$ 

870-2210: Hauptprogramm 
1000-1080: Computer würfelt 
1090-1740: Würfel aus dem "Knobel- 
becher” entnehmen und evtl. wieder 
welche in diesen hinein tun 
1750-2020: Ergebnis notieren 
2030-2180: Punkte anzeigen 
2220-2470: Spielende, Ermittlung des 
Siegers 

2480-3180: Unterprogramm 1-6 ge- 
würfelt, Straße, Kniffel u.a. 

3190-3640: Spielanleitung 

3650-3740: Ordnen der Würfel nach 
Augenzahl 
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268 PRINTLB,S-11"M" ;SPCL49) 
278 NEXT I 
288 CURSOR 9,21:PRINTL?,2] SPCC18) ;"DRUE 
GREZSZ e 
298 TEMPO2 :MUSIC"-#BCDEFEDCCCC" 
388 GET S$:IF S$<>"S" THEN 398 
318 CLS:CURSOR2,3:PRINTL?,2]"Spielanleit 
ung erwuenscht [J/NJ?" 
328 GET Q$:IF Q$="" THEN 328 
338 IF Q$="J" THEN GOSUB 3198 
348 CLR:DIM N$C4),A$C13,4),B0C4),K0C4) 
358 DIM WC5),%C5), YCSI,PC4),P1C4),P2C13) 
368 REM KAKKKKRKKKRRRKKKKKKK 
378 REM %% SPIELEREINGABE X% 
388 REM KRKKKKRRRRRRRRRRRKKK 
3938 PRINTL?,8]"@Wieviele Spielerl1-4)?" 
408 GET S$:IF S$="" THEN 498 
418 IFLSE="T"IHCSES" 2" IHCSE" IN IH SE="4" 
)) THEN 439 
428 GOTO 488 
439 SP=VALCS$) 
448 FOR J=1 TO SP 
458 CURSOR 2,3:PRINTL?,2]"Wie heisst der 
"3y3 “Spieler ?" 
468 CURSOR 2,5+J INPUT N$CJ) 
478 N$CJI=LEFT$CNSCUYI,B) 
488 NEXT J 
498 REM KRRRERRRRRRRRRRRRRRKRKKKK 
588 REM %%* SPIELFELD ZEICHNEN %*% 
518 REM RRRERRRRERRRRRRRRKKKKKKKK 
528 CLS 
538 A$="XK-------- Keinen ee = Ener Keen 
arg 
548 PRINT'B x x x 
* x" 
558 PRINT" BRRERRCKRERRERRERRRRRRRK 
KKKKKKKKKKK" 
568 PRINT'"B 1 ";A$ 
578 PRINT"B 2 ";As 
588 PRINT"B 3 ";A$ 
538 PRINT"B 4 ";A$ 
688 PRINT"B S ";As$ 
818 PRINT"B 6 ";As 
628 PRINT"BBON" ;A$ 
638 PRINT"B3-P" As 
548 PRINT"B4-P" ;A$ 
558 PRINT"BFUL" zAS$ 
568 PRINT"BSTR" 5A$ 
878 PRINT"BCHA" ;AS$ 
588 PRINT"BKNI" ;A$ 
538 PRINT"MDSDEDECEDEDEDEDEDEDEDEDECEDED 
8D8D8D8DEDEDECEDEDSDEDEDEDEDSDECEDEDEDED 
8D8D8D8DSC8" 
788 PRINT"BGESCE Be) c8 
c8 cB" 
?18 PRINT"BDSDEDEDEDEDEDSDSDEDEDEDEDEDED 
8D8D8D8DSDEDSDEDEDEDEDEDSDEDSDEDEDEDEDED 
8D8D8D8DED8" 
728 I=4:TEMPO 5 
738 FOR J=1 TO SP 
?48 CURSOR 1,98:PRINTL?,8] N$CJ) 
758 MUSIC"CECDDDCEE" 
768 I=1+9 
7728 NEXT J 
788 P1C1)=7:P1(2)=16:P1(3)=25:P1(4)=34 
798 FOR J=1 TO 13 
888 P2CJ)=1+J 
818 NEXT J 
828 FOR J=1 TO 13 
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838 FOR I=1 TO 4 

848 Ast), LI="JA" 

859 NEXT I 

868 NEXT J 

878 REM KKRRRRRRRRRRKKKKK 

888 REM %%* SPIELBEGINN *%* 

398 REMKKKRRERRRRRRKKOKKK 

322 FOR L=1 TO 12 

918 FOR J=1 TO SP 

928 CURSOR 28, 23:PRINTSPCCI8) 

938: CURSOR 9, 18:PRINTSPCCI9) 

348 CURSOR 9, 18:PRINTL?,2IN$CY) 

958 AN=S:K1=8 

368 FOR K=1 TO 3 

378 CURSOR 8,21 :PRINTSPCL38) 

988 CURSOR 8, 23:PRINTSPCC2B) 

9398 IF AN=® THEN 1388 

1888 REM KRRRRRRRRRRRRRKKKKKKK 

1818 REM %%* COMPUTER WUERFELT X 

1828 REM KRERREEREREKRRRRRRRRRKICKK 

1838 CURSOR 8,21 :PRINTL?,8] "Computer wu 
erfe ltd "5CHR$CI27) 

1848 GET A$:IF A$="" THEN 1848 

1858 FOR I=1 TO AN 

1868 WEII=INTCEXRNDCI)II+1 

1878 CURSOR 3+2%1,23: PRINTL?,BJUSING"#" 
WEI) 

1888 NEXT I 

1838 IF K=3 THEN S=AN:FOR LL=1 TO S83:NE 
XT: GOTO 1178 

1188 CURSOR 8,21 :PRINTL?2,8]"Wieviele Wue 
rel O=NSAN IT 

1118 GET S$:IF S$="" THEN 1118 

1128 IF LASCCSEI<4BIHLASCCSSII4B+AN) THE 
N 1118 


1138 S=UALCS$) 

1148 CURSOR 8,21 :PRINTSPCC38) 

1158 IF S=® THEN 1328 

1169 CURSOR 8,21 :PRINTL?,8J"Nimmst Duly/ 
NJ?" 

1172 KK=B:KM=K1 

1188 FOR I=1 TO AN . 

1198 CURSOR 3+2%1,23:PRINTLQ,6]J USING"#" 
b WEIJ:IF S=AN THEN 1238 

1289 GET S$:IF S$="" THEN 1288 

1218 IF S$="N" THEN 1278 

1228 IF S$<2"J" THEN 1288 

1238 Ki=Kl+1 

1248 YCKIJI=WCI) 

1258 CURSOR 28+2%K1,23:PRINTL?,8]J USING" 
#"3YCK1) 

1268 KK=KK+1:IF KK=S THEN 1298 

1278 CURSOR 3+2X1,23:PRINTL?,8]) USING"#" 
sWCI) 

1280 NEXT I 

1298 AN=AN-KK 

1388 CURSOR 8,21 :PRINTSPCC25) 

1318 CURSOR 8,23:PRINTSPCC38) 

+328 CURSOR 9,21 :PRINTL7,8] "Nach dem "; 
K;"-ten Wurf hast Du:" 

1338 IF KI<=® THEN 1378 

1348 FOR I=1 TO .K1 

1358 CURSOR28+ 2%1,23:PRINTL7,8] USING"# 
SETEL), 

1368 NEXT I 

1378 FOR WiI=1 TO 198@:NEXT IM 

1388 IF Ki<=® THEN 1698 

1398 CURSOR 8,21 :PRINTSPCC38) 

1488 IF K=3 THEN 1698 


CPU-Game-Hunter 


CPU 65 
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66 CPU 


1418 CURSOR 8, 21 :PRINTL?,8J"Wuerfel wied 

er wegnehmen (J/NI L2=8 

1428 GET S$:IF S$="" THEN 1428 

1438 IF S$="N" THEN 1699 

1448 IF S$<>"J" THEN 1428 

1458 CURSOR 8,21 :PRINTSPCC38) 

1468 CURSOR 8,21:PRINTL?,8] "Nimmst Duly 
-NI?" 

1478 L2=8:L1=®8 

1488 FOR-I=1 TO Ki 

1498 T$=STR$CYCI)) 

1588 CURSOR28+2%1,23:PRINTLB,6] USING" #" 
sYcI> 

1518 GET S$:IF S$s="" THEN 1512 

1528 IF S$="N" THEN 1568 

1538 IF S$c>"J" THEN 1518 

1548 L2=L2+1:T$="_" 

1558 GOTO 1578 

1568 LI=L1+1:2XCL1I=YC1) 4 

1578 CURSOR28+2X1,23:PRINTL?,81;5T$ 

1588 NEXT I 

1598 .IF L2=K1 THEN AN=5:K1=8:G0T0 1688 
1688 AN=AN+L2:KI=KI1-L2 

1618 FOR JJ=1 TO Kl 

1628 YCJJ)= XCyJ) 

1638 NEXT JJ 

1648 CURSOR 28, 23:PRINTSPCC18) 

1658 FOR I=1 TO Ki 

1668 CURSOR 20+2%1,23:PRINTL?,8] USING"# 
ENGL) 

1678 NEXT I 
1688 IF L2<>KI THEN 1698 

1698 NEXT K 

17088 IF L&>12 THEN 1798 

17218 FOR KK=1 TO 13 

1728 IF CASCKK,JI="JA"IKCKKO?)I THEN NO= 
KK 

1738 NEXT KK 

1748 GOTO 1998 

1758 REM KKRKKKKKKKIEKKRKKKKKKK 

1768 REM %%* ERGEBNIS NOTIEREN ** 

17278 REN RRRRRERKRRCKKRKRHKIKKK 

1788 REM 

1798 CURSOR 8,21 :PRINTL?,8)"Was soll not 
'ert werden ? Y 

1898 NO=8 

1818 CURSOR 8,23:PRINTSPCC8) 

1828 CURSOR 8, 23:1NPUT 0% 

1838 IF LEFTSCO®,1)="1" THEN NO=1 

1848 IF LEFT$CO$,1)="2" THEN NO=2 

1858 IF LEFT$CO$,1 3" THEN NO=3 

1868 IF LEFTSCOS, | 4" THEN ND=4 

1878 IF LEFT$CO$,1)="5" THEN NO=5 

1888 IF LEFT$CO$, 1 6" THEN NO=6 

1898 IF LEFT$C0%,3)="3-P" THEN NO=8 

1988 IF LEFT$CO$,3)="4-P" THEN NO=9 

1918 IF LEFTSCO$,3)="FUL" THEN NO=12 
1928 IF LEFT$CO$,3)="STR" THEN NO=1i 
1938. IF LEFT$CO$,3)="CHA" THEN NO=12 
19348 IF LEFT$CO$,3)="KNI" THEN NO=13 
1958 IF NO=8 THEN 1818 

1968 O$=LEFT$CO$,3) 

1978 IF A$CNO,JIKD"NEIN" THEN 1998 

1988 CURSOR 8,21 :PRINTL?,8] 0$5" hast Du 
bereits gewuerfelt22":FOR KL=1 TD 3909: 

NEXT:GOTO 1798 

1998 A$CNO, JI="NEIN" :PU=8 

2888 IF NO<7 THEN GOSUB 2519 

2818 IF NO<? THEN 2868 


r 


2622 GUSULB 2598 

2838 REM KRRREKRRKKKICKKHK 

2848 REM XX PUNKTE ANZEIGEN KX 

2858 REM KRRRRRRKKRREKRRIKKE 

2868 PLJ)=PLy)+PU z 

2878 CURSOR PICy),P2UND) :PRINTL?,8] Sin 
G"##" ;PU 

2888 TEMPO 2:MUSIC"CDEF" 

2838 IF KOCJ)<6 THEN 2178 

2188 FOR KL=1 TO 4 

2118 CURSOR 8,P2C7)::PRINTLE,7J"BON" SCURS 
DR PICYJ,P2L7I:PRINTLB,?] A$ 

2128 MUSIC"-A@" 

2138 CURSOR 8&,P2(2):PRINT"BON" :CURSOR Pi 
(J),P2C2J:PRINTL?,8] M% 

2148 MUSIC"-AB" 

2158 NEXT KL 

2168 KOLJJ=B& 

2178 IF LO12 THEN 2198 

2188 CURSOR PICYI-1,16:PRINTL?,2) USING" 
#4#"5PCJ) 

2198 2A=® 

2208 NEXT J 

2218 NEXT L 

2228 REN KERRRRREKKKUKKK 

2238 REM X SPIELENDE *% 

2248 REN RRRRRRRRIKKIOCKKK 

2258 MA=8 

2268 FOR I=1 TO SP 


2278 IF PCL)>=MA THEN MA=PCi):F=1 

2288 NEXT I 

2298 CURSORB, 22:PRINT"Gewonnen hat: ";3N$ 
(F) 

2388 PRINT"Noch ein Spiel 
I 

2312 CURSORSKF-5,@:PRINT[?,8) N£CF) 

2328 CURSOR PILFI-1,16:PRINTL?,BI USING" 

###"5PCF) 

2338 FOR K=1 

2348 GET U$ 

2358 IF Q&="N" THEN 2478 

2368 IF Q$="J" THEN RLN 

2378 NEXT K 

238@ CURSORB, 22:PRINTLB,?]"Gewonnen hat: 
"3N$CH) 

2338 CURSORIKF-5,B:PRINTIB,?] N$CR) 

2428 CURSOR PICR)-1,16:PRINTLB,2J USING" 

###";PCF) 

2412 FOR K=1 TO 15 

2428 GET 0$ h 

2438 Q$="N" THEN 2478 

2448 J" THEN RUN 

2458 

2468 GOTOD 2268 

2478 CLS:END 

2488 REM KKKRRKRRRKKICKIOKKHKK 

2498 REM *% 1-5 GEWUERFELT *% 

2508 REN RRRRRERKIRRREKROOKKKE 

2518 FOR kk=1 T0 5 

2528 IF YCKK)=NO THEN PU=PL+ND 

2538 NEXT KK 

2548 KOCJI=KOLYJ+1 :BOCYI=BOLJI+PU 

2558 IF KOCJ)I<6 THEN 2588 

2558 IF BOCJY)>62 THEN PLJJ=PLJ)+35:A$= 

5u 

2578 IF BOCJJ<=62 THEN As=" B" 

2582 RETURN 

2598 ON ND-7 GOSUB 28828, 2382, 3802,2648,2 

738,3148 


CJ-NIP" ZSPCCIS 


TO 15 
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2682 RETURN , 
2512 REN KRRRRRRRKKKKK 
2628 REM ** STRASSE *% 
2538 REM KRRREKKKRKKKKK 
2648 GOSUB 3688 
2658 FOR KK=1 TO 4 
2668 IF ABSCYCKKI-YCKK+1II@1 THEN 2698 
2678 NEXT KK 
2688 PU=3@ 
2698 RETURN 
2788 REM KKKKRKKKKKKKK 
2718 REM *%%* CHANCE %% 
2728 REM KKKKKKKKKKKK 
2738 FOR KK=1 TO 5 
2742 PU=PL+YCKK) 
2758 NEXT KK 
2768 RETURN 
2778 REN RRRRRRRRRRRKKKKKK 
2788 REM %% DREIER-PASCH *Xk 
2738 REN KKKKKKERRERRRKKKKK KK 
2808 GOSLUB 3689:1L1=8 
2818 FOR Kk=1 TO 3 
2828 IF YCKK)I=YCKK+2) THEN Li=1:60T0 285 
(2) 
2838 ‚NEXT KK 
«2848 IF Li=2 THEN 2868 


285@ GOSUB 2738 

2868 RETURN 

2878 REM RRRRRRRRRRRKKKKKKK 
2888 REM %% VIERER-PASCH *% 
2898 REM KRRRERRRRIKRRRKKKK 
2988 GOSUB 3689:11=8 

2918 FOR Kk=1 TO 2 

2928 IF YCKKI=YCKK+3)ITHEN L1=1:G0T02958 
2338 NEXT KK 

2992 IF Li=® THEN 2968 

2358 GOSUB 2738 

2968 RETURN 

2972 REM KRRRRRRRRKKICKKOKK 
2982 REM *% FLLL-HOUSE %% 
29398 REM KRRRERRRRRKKKKKKK 
3202 GOSLB 3689:L1=8 

3818 IF CYLIISOTCZIIKCYLIIOYC3II THEN 3 
128 

3e2@ IF YCI)=YC2) THEN Li=l 
3838 IF YLIJ=YC3) THEN L1=2 
32848 ON LI GOTO 3958, 3888 
3858 IF YC3I<>YC4) THEN 3198 
3868 IF YC4)<>YC5) THEN 3188 
3878 GOTO 39899 

3888 IF YL4I<>YCSI THEN 3198 
3292 PU=25 

3188 RETURN 

3112 REM KRRRRRRRRKKKK 

31298 REM *%k KNIFFEL *%* 

3138 REM KKAKKKKKKKKKK 

3148 FOR Kk=2 TO 5 

3158 IF YCIISDYCKKITHEN 3188 
3168 NEXT KK 

3178 PU=S® 

3188 RETURN 

3198 REM KRKKKREKKRRRRKKKKKK 
3288 REM *%% SPIELANLEITUNG %*% 
3218 REM KKKEREEIKRKKRRRKK KK K 
3228 CLS 

3238 PRINT"Bei diesem Spiel handelt es s 
ich um." 

3249 PRINT"eine etwas abgewandelte Form 
des wohl" z 
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PU-Game-Hunter 


3258 PRINT"bekannten Spieles “KNiF 

ESLEER 

3268 PRINT"Es wird mit 5 Wuerfeln gewuer 
felt." 

3278 PRINT"Es geht nun darum mit maximal 
3 Wuerfen" 

3288 PRINT"folgendes zu wuerfeln:" 

3298 PRINT"BEBBDRUECKE TASTER" 

3388 GET Q$:IF Q$="" THEN 3388 

3312 PRINT"BEBBBPMERKE DIR cie Ku 

erzelg2< " 

3328 PRINT"M1,2,3,4,5,6:Duerfte wohl kla 

r sein" 

SS3DHPRRINTE TE Seren are 

3349 PRINT"STR:STRASSE" 

3359 PRINT" 1-2-3-4-5..0der 2-3-4-5-6" 
3362 PRINT"CHA CHANCE" 

3378 PRINT"”77 Einfaches Aufadoieren der 
gewuer-"_ 

3388 PRINT" felten Augen" 

3398 PRINT"3-P :DREIER-PASCH" 

3488 PRINT"”"7 3 Wuerfel mit gleicher Au 
genzahl" 


3418 PRINT" (z.b 1-1-=1-2-3 oder 576-6 
etc.) 

3428 PRINT"4-P :VIERER-PASCH" 

3438 PRINT"”"" Siehe 3-P (ersetze 3’0urc 
n’47 3" 

34482 PRINT" Cz.b 1-1-1-1-3oder, 2-2-2 
-2 etc.)" 

3458 PRINT"FUL :FULL-HOUSE" 

346A PRINT"”"" Jeweils 3 UND? 2 Wuerfel 
mit glei-" 

3478 PRINT" cher Augenzahl wuerfein" 
3488 PRINT" (z.b 1-1-1-6-6 oder 5-5-5 
=gegeete. di. 

3498 PRINT"KNI:KNIFFEL" 

35a9"RRINT.T 5-PASCH .CzuB 1-1-1-1-1- 3 
3518 PRINT"R DRUECKE TASTER" 

3528 GET Q$:IF 0$="" THEN 3528 

3538 PRINT:PRINT"Hat man bei den Einsen 
bis Sechsen mehr" 

3548 PRINT"als 62 Punkte erwuerfelt,so e 
rhaelt man" 

3558 PRINT"einen Bonus von 35 Punkten,de 
r unter" 

3568 PRINT"’BON’ angezeigt wird." 

357@ PRINT:PRINT"Fuer eıne STRASSE erhae 
It man 38, fuer " 

3582 PRIiNT"ein FÜLL-HÜLISE: 25 und fuer ei 
n KNIFFEL" 

3598 PRINT"S® Punkte." 

36@@ PRINT"Ansonsten werden die gewuerfe 
Iten" 

3618 PRINT"Augenzoh len als Punkte notier 
tes 

362@ PRINT" CK? DANN DRUECKE TASTEL" 
3639 GET G$:IF 0$="" THEN 3632 

3648 RETURN F 

3658 REN KRRRRRRRRRRRKKKKKKKK 

3568 REM *% WUERFEL ORDNEN %*%* 

3578 REM RRRRRRRERRRKRRKKKKKK 

3688 FOR Kk=1 TO Ki-1 

3658 FOR KF=Kk+1 TO Ki 

3722 IF TCKKI>=YCKF) THEN 3728 

3718 MM=YCKFJ:YCKFI=YCKKI STCKKI=MM 

3728 NEXT KF 

3738 NEXT KK 

3748 RETURN 
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CPU-Podium 


Aus der beiliegenden Fotokopie ersehen 
Sie einen Mini-Industrieroboter. 

Da Sie bestimmt laufend Informationen 
über neue Peripheriegeräte erhalten, 
sollten Sie mir sicher Auskunft geben 
können, wo ich mir Unterlagen über 
solche Roboter beschaffen könnte. 


S. Bianchetti, Nidau (CH) 


Redaktion: 

Da die Redaktion das vorliegende Mo- 
dell nicht exakt identifizieren kann, 
gibt sie die Frage an unsere Leser 
weiter. Wir merken nur folgendes an: 
Der Roboter-Markt expandiert stetig. 
Für fast alle Rechner werden über kurz 
oder lang teil nützliche, teils Spielzeug- 
ähnliche Geräte zur Verfügung stehen. 
Wir sind sicher, daß Ihr Fachhändler 
schon bald einiges vorzeigen kann. 


Zum besseren Verständnis der recht 
komplizierten Graphikprogrammierung 
des C-64 kaufte ich mir das DATA- 
BECKER-Graphikbuch. Leider wird in 
diesem Buch nur theoretisch eine 
Zeichenssatzveränderung in Multico- 
lour beschrieben, aber kein praktisches 
Beispiel aufgeführt. Darum habe ich fol- 
gende Bitte: 

Könnten Sie ein kleines Beispiel für die 
Zeichensatzveränderung (Multicolour) 
für den C-64 abdrucken. 


T. Hackenberg, Lahr 


Redaktion: 

Vigle solcher Zuschriften erreichten 
uns in den letzten Wochen. Ein Pro- 
gramm. in dem Zeichensatzverände- 
rung mit Multicolour vorkommt, ha- 
ben wir bereits in der CPU 5/84, Seite 
20 abgedruckt. 

Es handelt sich hierbei um das Pro- 
gramm Castle, das angesprochene Pro- 
blem wird dort eindrucksvoll demon- 
striert. 


x 


Ich besitze einen TI-99/4A und stehe vor 
einem Rätsel. 

Wie kann ich mit meinem TI in Exten- 
ded Basic einen Kreis ziehen? 

Ich würde mich freuen, wenn Sie mir hel- 
fen könnten. 


D. Guter 


Redaktion: 

Setzen Sie das folgende kleine Listing 
in das Programm "Punkte plotten” aus 
CPU 11/84 ein und der TI-99 wird Ih- 
nen alsbald einen. schönen Kreis 
zeichnen. 


1000: Platz für eigene 

1010: Anwendung 

1020: 

1025: CALL CLEAR :: FOR I=34 
TO 143 :: CALL CHAR (1.” ”) :: 
NEXT I 

1030: FOR I=1 TO 360 

1040: X=INT (SIN(T)*50+100 
1050: Y=INT (COS(T)*50+ 100 
1060: CALL PLOTTEN (X.Y) 
1070: NEXT I 

1080: 

1090: 


+ 


Zu Ihrem Brief Kopierer contra Para- 
graphen” in CPU 8/84 möchte ich an- 
fragen, ob Ihre Redaktion und die Ihrer 
Konkurrenz-Zeitschriften nicht _an- 
gesichts der weitgehend jugendlichen 
Leserschar — nicht von ungefähr reden 
viele Computer-Zeitschriften ihre Leser 
mit "Du” an- eine moralische Verant- 
wortung verspüren und vor der Veröf- 
fentlichung von Gelegenheitsanzeigen, 
in denen-entsprechende Software ohne 
Copyright angeboten wird, die In- 
serenten (und Kunden!) auf eventuelle 
Juristische Konsequenzen hinweisen. 


H. Hermann, Nürnberg 


Redaktion: 

Ihre Frage nach moralischer Verant- 
wortung ist eigentlich angesichts Ihres 
Verweises auf unseren Artikel "Kopie- 
rer Contra $ $"” gegenstandslos. Besä- 
Ben wir für die von Ihnen angeschnit- 
tene Problematik keine "Antenne”, so 
hätten wir sicher nicht so ausführlich 
dazu Stellung genommen. Lesen Sie 
doch bitte auch unsere Ausführungen 
im September-Heft (CPU 9/84), die wir 
unter der Überschrift "Die Geschichte 
vom Ausweg" veröffentlichten. 
Dennoch ist Ihr Vorschlag, einen ent- 
sprechenden Hinweis auf jeder Seite 
“Kleinanzeigen” zu bringen. durchaus 
bemerkenswert. Man muß. allerdings 
berücksichtigen, daß derartige pau- 
schalierte Warnungen mit der Zeit oh- 
nehin überlesen werden. Denken Sie 
nur an die Nikotin-Hinweise des Ge- 
sundheitsministeriums auf jeder Zi- 
garettenschachtel. die den Absatz 
nicht haben beeinflußen können. 


* 


Seit Juni kaufe ich regelmäßig CPU und 
Homecomputer. In CPU 9 haben Sie ein 
verlockendes Angebot. Ich frage Sie 
nun: 

1) Kann man auch CPU und Homecom- 
puter Abonnement fürs Ausland ab- 
schließen? 

2) Bekomme ich auch die Spielkassette 
geschickt? 


R. Gasser, Hundling (F) 


Redaktion: 

Selbstverständlich gelten die Abonne- 
ment-Angebote auch für unsere Leser 
im Ausland - mit allen Vorteilen sowie 
der von Ihnen angesprochenen Kasset- 
ten-Prämie. Abonnement-Preise fin- 
den Sie in unserem Impressum. 
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Geschenk-Aho 


Mein Name 


Ich möchte folgendes 

Abo verschenken: 

OD HC zu DM 55.- 

DO CPU zu DM 55.- 

DO HC und GPU kombiniert 
zu DM 100.- 


Europ. Ausland: 

O HC zu DM 80.- 

DO:-CPU zu DM 80.- 

OD HC und CPU kombiniert 
zu DM 150.- 


Außereurop. Ausland: 

O HC zu DM 110,- 

DO CPU zu DM 110.- 

DO HC und CPU kombiniert 
DM 200,- 


Zahlungsweise 
DO Ich zahle per EEaN 
B 


DO Per Rechnung 
D Per Scheck 


Name/Unterschrift 


Wenn ich nicht 2 Monate vor Ablauf dieser Bestel- 
lung schriftlich kündige, bin ich mit der Lieferung 
für ein weiteres Jahr einverstanden. 
Rechtshinweis: Diese Bestellung kann innerhalb 
einer Woche bei der Verlagsunion schri ich wider 
rufen werden. Eee union, Friedrich-Bergiustr. 1.20, 
6200 Wiesbaden. Zur Wahrung der Frist genügt 
das Datum Br Posts tempels. 


Be ee 
Bei Minderjährigen die des gesetzlichen Vertreters 


Einsenden an: 
Verlagsunion 
Friedrich-Bergius-Straße 20 
6200 Wiesbaden 


Ki 


, 


men - 


CPU-Podium 


Der leidige Joystick 


Markus Jeschke aus Herne hatte viel Pech mit handelsüblichen Jovsticks. Das 
geht nicht so weiter, dachte er und baute sich einen um: Hier sein Brief... 


Wer kennt nicht diese bittere Er- 
fahrung!? 

Ich habe ein Listing in den Computer 
gehackt, das alle Spiele, die ich schon 
habe, in den Schatten stellt. Das neue 
Spiel soll mein Reaktionsvermögen 
aufs äußerste belasten. So stehtesin der 
Spielanleitung. Also Joystick dran und 
los geht's. 

Denkste!!! 

Was ist bloß wieder los? Die Feuertaste 
funktioniert ja gar nicht richtig! Nach 
mehrmaligem Drücken nimmt sie stot- 
ternd den Dienst wieder auf. Auch die 
Funktionen für die Bewegungen 
sprechen nicht immer an. Dabei spüre 
ich doch das typisch feine Knacken im 
Griff. Trotzdem ist eine präzise Steue- 
rung nicht mehr möglich. Ob der Com- 
puter defekt ist? (Ist er nicht.) Also doch 
der Steuerknüppel. Das war nun schon 
der zweite Joystick. der innerhalb von 
ein paar Wochen den Dienst aufgab. 
War ich vielleicht zu doof, um mit ei- 
nem Joystick umzugehen? Einige 
Nachfragen ergaben, daß andere ähn- 
liche Probleme haben. 

Dann kam mir die Idee - Umbauen. 
Aber wie? Ich Schaute mir das Ding mal 
näher an. Auf dem einen stand "Su- 
perjoystick” geschrieben. Super war al- 
lerdings nur der Preis. Sein Innenleben 
war das gleiche wie beim preisgünsti- 
gen "Commodore Top”. Nämlich billi- 
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ger Schund. Eine Platine mit Quick- 
scheiben. Diese baute ich aus und 
merkte mir dabei. welches Farbkabel 
zu welcher Bewegungsrichtung gehört 
(s. Skizze). Ich besorgte mir 5 Mikro- 
schalter und lötete die Drähte auf die 
entsprechenden Kontakte. Dann plä- 
zierte ich sie so, daß siegenau mitihrem 
Schaltknopf unter den Nocken des He- 
bels standen. Den Hebel kann man 
übrigens aus dem Oberteil einfach 
herausziehen. Die Lasche am Ring 
muß nur immer Richtung Feuerknopf 
zeigen. was für den späteren Zusam- 
menbau wichtig ist. Außerdem ist dann 
die Plazierung der Mikroschalter 
präziser. 

Die Befestigung ist denkbar einfach. 
Mit einer Heißklebepistole (Kontakt- 
kleber geht auch) ein Klebebett aufden 
Gehäuseboden machen und den Mi- 
kroschalter hineindrücken. sodaß er 
genau unter der Nocke vom Hebel 
steht. immer im rechten Winkel zum 
Gehäuseunterteil. Dann wird der Schal- 
ter für 3-5 Minuten mit Tesafilm fixiert. 
Denn solange braucht die Heißklebe 
zum Trocknen. Sind alle Schalter fest. 
kommt einekurze Funktionsprobe. Man 
setzt den Kunststofferiffaufden Bolzen 
in der Mitte und bewegt ihn nach allen 
Seiten. Hat man alles richtig gemacht. 
drücken die Nocken des Hebels die 
Schaltknöpfe herunter und erzeugen 


ein helles Klicken. Dann wird der He- 
bel wieder in das Oberteil gesteckt und 
(mit. der Lasche in Richtung Feuer- 
knopf/Aussparung) alles zusammen- 
geschraubt. 

Mein umgebauter Joystick (Umbauzeit 
je nach Geschick 1/2-1 Stunde) läuft 
seit dem nicht nur wieder gut. sondern 
besser als vorher. Die Schaltung läuft 
nun viel präziser. denn das helle 
Klicken gibt nun ein Gefühl für Druck- 
punkt und Schaltvorgang. Man fühlt 
und hört. daß man etwas gedrückt 
hat. 

Bevor ich diesen Briefschrieb. habe ich 
natürlich erst mal eine "Testzeit” ver- 
streichen lassen. Dabei erwies sich 
mein kleiner Bruder (7 Jahre alt) als die 
beste Testperson, weil er im Spiel den 
Joystick bearbeitet wie ein Wilder. Da 
der Joystick nach nunmehr 8 Wochen 
Härtetest immer noch so gut funktio- 
niert wie direktnach dem Umbau. kann 
ich mit Bestimmtheit behaupten: 

Der Umbau lohnt sich 

(der Neugekaufte überstand gerade 4 
Wochen). 

Dieser Umbau gilt 
Commodore. 

PS: Habe auch schon einen "Quick- 
shot” mit Feuertaste im Griff um- 
gebaut. 


nicht nur für 


Markus Jeschke. Herne 
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BIETE AN SOFTWARE 


Lernprogramme für 6-64 + TI (z.B. 
Mathematik, Elektronik, Bio) Paedco, 
Postfach 2021, 4057 Brüggen 


V6-20 und VE-64 Spiele, Liste gegen 
-, 80 DM Rückporto, H. Wierzbinski, 
Edew. Landstr. 126, 2900 Oldenburg 


6-64 Programmverkaud (> 200 Stk.) 
Dalles Quest, Summer Games, Zaxxon 
Hobbit, Datamat etc. Liste gegen 
DM 1,30 Rückporto oder Tausch 
Postlagerk. 322478, 8500 Nürnberg 1 
6-64 Superprogramme 


VC-20 Software zu verkaufen 
Info 80 Pfg. bei K. Wellige, 
Eschstr. 43 + C. Müller, 

Holtkampstr. 10.498 Bünde 1 


FORTH-Assemblerlistings für alle wichti- 

gen Microprozessoren je 25.- DM: Installa- 

tion-Manual 25,- DM, Autolinker und Buch- 

haltung für Apple Il, kosten! Info anf. bei 

B. Lipgens-Datentechnik, Wilbrechtstr. 65, 
8000 München 71 


0099 oT:9/AMEK HMMM 
‚Achtung nur für Erwachsene. Keine 
Abgabe an Jugendl. Ritte Alter an- 

geben. Top Sound — Top Grafik Dieses 

Spiel wird Sie in Stimmung hal- 
ten. Preishit incl. Cass. Porto und 
Info-Programm. Nur’ 10,- DM in’Umschl. 
an T. Karbach, Remscheider Straße 18, 
© © © ® 5650 Solingen1@ @ © ® 


VC-20 + CBM-64 — HARD & SOFT 
zB. 64 KB-RAM-Module, 80-Zeichen- 
Module, Buserweiterungen, Fastsave- 
Module, Eprom-Karten, Drucker-Inter- 
faces, IEC-Interfaces, Program- 
miergeräte, Joysticks und das neue 
TORBOFLOPPY-Modul (26-mal schneller). 
Nähere Informationen erhalten 
Sie gegen 1,- DM in Briefmarken. 
Fa. Grewe Computertechnik 
Wiesenstr. 82, 4350 Recklinghausen 
T 02361/181354 


BIETE AN HARDWARE 


Sinclalr Spectrum 48K bei 
nur DM 448,-; Sinch: 
eingetroffen, ab Lager li 
nur DM 1.798,- bel Computer-Store 
Herzehrocker Str. 46, 4830 Gütersloh 
@05241/12080 


TI-99/4A-Cassettenrecorderkabel 
nur 30,- DM per NN. @02134/96687 


TI-99/4A+Ext-Basic+Sprach-Synth+ 
Rec-Kabel+Bücher+1 Softw/Fast Neu! 
VB 700,-DM @02203/37831(ab 18.00) 


Texas TI-99/4A+Rec.Mit Kabel+ Ex- 
Basic mit Buch+-Joyst. mit Adapter 
VB 720DM;TI-Invaders 70DM; Parsec 
120,- DM;Basic-Kurs 50DM; TI-Data- Be- 
cker-Buch 40DM;komplett 900DM, 
Burkhard Kratz, Heinr.-Heine-Str. 2, 
6458 Rodenbach, @06184/53915 


Reset für 6-64, V6-20 einsteckbar 
Preis 5,- DM, ®02056/20506 


Spectrum 48K leicht defekt Incl. 
Netzgerät + Democass. 150,- DM 
Eversberg Pivittz Hagen @688922 


Appie Comp 48K 998,- Floppy 5,25" 
Slimeline 580,-, Controler 165,- 
Monitore 20 MHz 12” Gelb 398,- 
INFO kostenlos, Nolte-Bürotechnik, 
2000 Hamburg 61, Stavenhagenerstraße 3 
©040/588838 Tag + Nacht 


T1-99/4A - Cassettenrecorderkabel 
Original TI nur 30,- Datenrecor- 
der für TI nur 78,-, Proft-Monk- 

toranschluß für Spectrum 39,- mit 

Monitorkabell © 02134/96687 
Noack, Leostr. 16, 4100 Duisburg-Wals. 


Kleinanzeigen — 
für jeden etwas 


SUCHE HARDWARE 


TI-99/4A suche Ext. Basic, H. Böhm, 
6600 Saarbrücken, ®0681/702281 


VERSCHIEDENES 


Floppy für Spectrum 920,- DM 
Hard,- Software für $Inclalr und 
Commodore! Katalog gratis!!! 
Hard-Software-Vers. B. Schwing, 


Tuchergartenstraße 29, 8500 Nürnberg 


Top Software für Top Micros, 

CBM 64, VC-20, ZX-Spectrum, ZX-81, Orlc, 
Memotech, CPC 464, Dragon. Auch Hard- 
warel! Händleranfragen erwünscht! 
Rückporto von 2,- DM beilegen, 
Windmill Software, Herzog-Franz-Str. 12, 
3170 Gifhorn, @05371/58367 


Supertiplil 
ZX-Spectrum (48K) + 6er Packung 
Software * Chequered Flag, Chess, 
Scrabble, Horace goes Skiing, Survival 
Make a Chip! Superpreis!! Komplett 
465,- DM. Nur bei Windmill Software, 
Herzog-Franz-Str. 12, 3170 Gifhorn, 
05371/58367 
‚Auch telefonisch bestellbar! 
Wir haben über 700 Titel im Programm — 
für alle Heimcomputer. Händleranfragen 
erwünscht! 


Auch kleine Anzeigen 
bringen große Erfolge 


a ze ze 
pe 


GEBEN SIE BITTE BEI ALLEN ZAHLUNGEN UNBEDINGT DIE GENAUE RECHNUNGSNUMMER AN. 


Auftrag für Gelegenheitsanzeigen in GPU 


An GPU 
Fuldaerstraße 6 
3440 Eschwege 


veröffentlichen wir 
heitsanzeigen für Verkaufsan- 
gehote, Kauf- und Tauschgesuche, 
Kontaktaufnahme bzw. Erlah- 
rungsaustausch usw. 


Preise für “Kleinanzeigen”: 
Private Kleinanzeige je Druckzelle 
5,- DM Inkl. MwSt. Chiffregebühr je 
Anzeige 10,- DM. 


Gewerbliche Gelegenheitsanzeige 
je Druckzelle 10,- DM Inkl. MwSt. 
(dürfen nicht unter Chiffre er- 
scheinen). 


Gewerbliche Gelegenheitsanzeige 
in der Kombination 
CPU/Homecomputer je Druckzeile 
15,- DM 

(Chiffre nicht möglich). 
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Unterschrift 


Ich wünsche 


Zutreffendes ankreuzen 


suche OD Software 
biete an I Software 
suche OD Hardware 
biete an DI Hardware 


D Tausch 

OD Kontakte 

OD Verschiedenes 
DO Chiffre 


CPU TI 


on 


Liebe CPU-Leser, 


die Weihnachtsausgabe 1984 wäre wirklich nicht 
komplett, wenn wir uns nicht etwas Besonderes für 
Sie hätten einfallen lassen. Wir haben daher in 
alten Büchern geblättert und eine Weihnachtser- 
zählung gefunden, die auch uns moderne Menschen 
des späten 20. Jahrhunderts noch etwas vom Zau- 


ber der guten alten Zeit ahnen läßt. 


Gekoppelt haben wir diese schöne Geschichte mit 
dem ersten CPU-Rätsel, das Sie unter der Rubrik 
”"CPU-Happy” auch durch’s kommende Jahr be- 


. gleiten wird. 


Die markierten Buchstaben ergeben den Lösungs- 
satz, den Sie uns bis zum 20. Dezember 1984 auf‘ 
einer Postkarte einsenden sollen. Nutzen Sie die 
langen Abende in der Adventszeit, um an unserem 
Rätsel herumzutüfteln - sicher werden Sie die Lö- 


sung finden! 


KAFFEE KK I IT ICK 


Und nun zu den Tellnahmebedingungen: 


Mitmachen darf jeder, auch wenn er (noch) nicht Leser der neuen 
CPU ist. Ausgeschlossen sind lediglich die Mitarbeiter des 


Roeske-Verlages sowie deren Angehörige. 


Einsendungen nur auf Postkarte bis spätestens 20.12.84 
(Datum des Poststempels). Bitte geben Sie auf Ihrer Lö- 
sungspostkarte auch Ihren Computer (genaue Modellbe- 
zeichnung) an — wichtig für den Versand der Software- 


Gewinne! 


Nur richtige Lösungen nehmen an der Auslosung teil. 
Alle Gewinner werden schriftlich benachrichtigt. 


Ihre Postkarte senden Sie bitte an den 
ROESKE-VERLAG, 


Kennwort ”CPU-Weihnachtsrätsel”, 
Postfach 620, D-3440 Eschwege. 


TOI, TOI, TOI! 
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data 


Fe Le Se Ze 


FERRARI E K EEE 


: 1.Preis 


10 Bänder aus unserem Kassetten-Service 
für Ihren Computer. 


KK 
2.Preis 


5 Bänder aus unserem Kassetten-Service 
für Ihren Computer. 


KEKKK 
3. Preis 


3.Bänder aus unserem Kassetten-Service 
für Ihren Computer. 


Mekka 
4. - 30. Preis 


Je 1 Band aus unserem Kassetten-Service 
für Ihren Computer. 


Aeeleick tete Kr RI TE 


! 
: 
| 
: 


%* 
Segeln 
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Die Geschichte vom armen Hacker 


a hinter dem Dorf Oberwiesenau hausten in einer kleinwinzigen Hütte gar arme Leute, und der Computer, 
den sie benutzten war alt und langsam, und die Datasette savete gar kärglich, und zuweilen hatten sie keine ein- 
zige lauffähige Kopie und waren weit schlimmer noch dran als die Mäuse im Wald. 

Nun waren einmal wieder die seligen Weihnachten gekommen, und Mutter und Vater waren ins Kirchdorf hinunter- 
gegangen, um dort in der Christmette den Ileben Gott um einen brauchbaren 16-biter zu bitten. Die Kindlein, die sie 
hatten, es waren ihrer sieben, die blieben zuhause, saßen an ihren Joysticks und meinten, es müsse heut nacht 
doch noch ein goldbekränzter Space-Invader daher klingeln und ihnen einen Sack voller RAM-Packs, Cartridges 
und neuer Spielprogramme bringen, auf daß sie nicht gar so arm und hilflos dasäßen und unter Umständen nach 
einem Buche greifen müßten mitten in der Heiligen Nacht. Aber draußen regte sich nichts, nur die$terne gingen um 
das Haus und spiegelten sich im Schnee, und die nahen Tannen standen weiß und ehrwürdig. 

Als es Mitternacht worden und es die Kinder schläferte und sie am liebsten geweint hätten vor vergeblichem 
Warten, sieh, daklopfete es und ein Grunzen ertönte an der Tür. Da taten sie denn stracks und fröhlich die Türe auf. 
Doch draußen stand kein Space-Invader, auch kein Gremlin mit Rucksack, sondern nur ein armer Hacker. 
Man hätte die Rippen an ihm zählen können, so verhärmt sah er aus: Man hatte ihm sein Modem beschlagnahmt 
und dadurch jede Lebensgrundlage genommen. So blickte er müde und verzweifelt drein und hatte gar wenig 
Freude mehr an der Welt. 

Das arme Wesen erbarmte die Kindlein sehr. Sie nahmen den Hacker mit in die Wohnung, holten den allerletzten 
Kasten Pilsener aus dem Keller, räumten.den Kühlschrank aus, soweit Nahrhaftes in ihm zu finden, tischten dem 
armen Hacker auf und nötigten ihn, vor dem Bildschirm Platz zu nehmen. 

Dem Hacker, der vor Zeiten Besseres gewöhnt gewesen, mutete die Hardware der Kleinen gar kümmerlich-an doch 
sah er ihre gute Absicht, und ihre Mildtätigkeit rührte ihn. 

Nachdem der Kasten geleeret und die Happen zwischen den gelichteten Beißern des Hackers verschwunden 
waren, ging ein Leuchten über seine müden Augen. Er streckte die Beine aus und hielt ein erquickliches 
Nickerchen. 

Als nun aber die Kleinen zur Ruhe kamen und merketen, daß sie den armen Eltern das letzte Weihnachtsmahl 
genommen und verschenkt hatten, da erschraken sie gar sehr und hatten große Angst vor der Rückkunft der 
Eltern. 

Der Mond schien über der Alm hinter dem Haus und der silber glänzende Schnee machte ein gar friedliches 
Bild. ; 

Als nacheiner guten Weile der Hacker ausgeschlafen, dareckte und streckte er sich, zwinkerte den Kindern zu und 
wandte sich zum Gehn: Er band sich einen dicken Wollschal um, stülpte eine Pudelmütze über und stapfte in den 
Schnee hinaus. { 

Und siehe da, als ihm die Kinder nachblickten, wie er die mondbeschienene Alm hinanstieg und ab und zu den 
Schnee von den Schultern schüttelte, da blinkte und blitzte es bisweilen wie Sternschnuppen. Und als die armen 
Kleinen hinaus traten und den Spuren des Hackers folgten, da fanden sie lauter kleine Eproms, sieben an der Zahl, 
im Schnee liegen. 

Sie hoben sie auf, trugen sie in die Wohnung, löteten sie in ihre Rechner und sahen, daß jedes Eprom mit der köst- 
lichsten Software beschossen war, welche die Kleinen je kennengelernt hatten. 

Und als die Eltern von der Ghristmette heimkehrten und die geheimnisvollen Vorgänge in dieser Nacht erfuhren, da 
zürneten sie nicht, sondern freuten sich mit den Kindern. 


(Aus einer alten Chronik) 
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Kassettenservic 


EEE EEE EEE EEETETT SEEN EEITETEEEESETERERTETETTTEITETN 


Unser Softwareversand bietet Ih- 
nen zu wirklich einmalig günstigen 
Preisen jeden Mon: 
Programme (zu den bereits In frü- 
heren Ausgaben veröffentlichten), 
auf Kassette bzw. Diskette an. 
Wenn Sie die hier aufgeführten 
. Bedingungen beachten, können 
auch Sie von unserem Angebot 
' Gebrauch machen. 


Gegen Einsendung eines 
Schecks oder Vorauszahlung auf 
unser Konto bei der Kreisspar- 
Kasse Eschwege. 

Bankleitzahl 522 500 30 
Kto.-Nr. 45 22 934 

senden wir Ihnen die gewünsch- 
ten Programme schnellstmög- 
lich zu. Geben Sie bitte unbe- 
dingt die. genaue Bezeichnung 
der Kassette (z.B. CPU 1/84 TI- 
99/4A) und des Computers an. 


Nur Vorauskasse. Schein 
(Kassette 10,- DM. Diskette 20,- 
DM). Keine Schecks oder Über- 
weisungen! 


Lieferung noch nicht erhalten? 


Bei Überweisung auf unser Kon- 
to kann es bis zu 2 Wochen 
dauern, bis wir Ihre Bestellung in 
Händen haben. k' 

Oft passiert es, daß auf der Über- 
weisungsdurchschrift weder Na- 
me noch Ort noch Art der Be- 
stellung zu erkennen sind. 
Schreiben Sie uns! (Anrufe 
kosten viel Geld und bringen, 
weil dann Schriftvergleiche nicht 
möglich sind, kein Ergebnis)! 
Wenn es bei uns besonders hek- 
tisch zugeht, dann kann es schon 
mal passieren, daß es mit der Lie- 
ferung etwas länger dauert. Ver- 
gessen-Sie bitte nicht: Der Kas- 
settenservice ist ein zusätzlicher 
Service von uns, der Ihnen, dem 
Leser, Tipparbeiten ersparen 

soll (Sie kennen den Versuch 
einer anderen Zeitschrift, dieses 
per Lichtgriffel zu ermöglichen). 
Wir tun unser möglichstes. Aber 
Pannen sind nie ausgeschlossen. 
Bitte haben Sie in solchen Fäl- 
len Verständnis. 


je neuesten ° 


aus CPU 6/84 
ZX Spectrum K10,- DM 
Zauberwürfel 
Kopierprogramm 
VC-20 K10,- DM 
Expedition zum Mond D16,- DM 
Frosch 
Commodore 64 K12,- DM 
Dragon D 16,- DM 
Octopus 
Discs of Tron 
T1-99/4A K10,- DM 
Super Miner 
Earth defense 
zx-81 K10,- DM 
Starwar 
Apple D 16,-DM 
Invasion der Erde 

aus GPU 7/84 
ZX Spectrum 48K K10,- DM 
Grafiktool 
Lander 
VC-20 K10,- DM 
Miner D 16,- DM 
Schlecker 
Commodore 64 K.10,- DM 
Hit 64 D 16,- DM 
Jagd 
Atari 800 K.10,- DM 
Superhirn 
T1-99/4A K.10,- DM 
Astro-Fighter 
Six-Days 
Apple Il D 16,- DM 
Editor Manual 
Zzx-81 K10,- DM 
Pac Woman 
Robot 

aus CPU 8/84 
Commodore 64 K12.-DM 
‚Adonis D16,- DM 
Planet Mission 
Fips, die Grille 
6-20 K12,- DM 
Tennis D16,- DM 
Dangerous Planet 
MOP 
Adreßdatei 
zx-81 K10,- DM 
Jump Monkey 
React 
Apple Il D 16,- DM 
Solitär 


Bildschirmgenerator 


TI99/4A K12,- DM 
Zauberhöhle 
Die verrückte Karawane 
Ghost Manor E 
ZX Spectrum K10,- DM 
3D-Escape 
Superhirn 
aus CPU 9/84 

T1-99. K12,- DM 
Supercode 
Pac Man 
Kalenderprogramm 
ZX Spectrum K12,- DM 
Annihilators 
2 fache Vergrößerung 
Crown 
Commodore 64 K12,-DM 
Grafik D 16,- DM 
Ballonflug 
Oasis 
Zx-81 K10,- DM 
Hangman 
Formengenerator 
VC-20 K12,- DM 
Share Holding D 16,- DM 
Gallery 
Gardener 

Aus GPU 10/84 
VC-20 K10,--DM 
Begrifferaten D 16,- DM 
Sammler 
Commodore 64 K10,- DM 
Zeppelin Command D 16,- DM 
Car Action 
Zx-81 K10,- DM 
Lebenswandeltest 
Boxen 
ZX Spectrum K12,- DM 
Türme von Hanoi 
Disassembler 


Aufgabenhilfe Mathematik 


T1-99/4A 
Donald der 
Dschungelheld 
Super Kong 


Dragon 32 
Reflex-R 


Bit-90 
Fluchtversuch 


Atarl 
TIB-TAB 
Circus 
Water way 
Galaxians 


K12,- DM 


aus CPU 11/84 
VC-20 K10,- DM 
Froschjäger D 16,- DM 
Rallye 
Commodore 64 K10,- DM ' 
Pink Panter D18,- DM : 
Neutrale Zone 
2-81 K10,- DM 
Kegeln 
Romme 
ZX Spectrum K12,- DM 
Moonpatrol 


Extended Basic 
Testbildgenerator 


T1-99/4A K12,- DM 

Punkte plotten = 

Säulendiagramm 

Planetenverteidigung 

Bit-90 K10,- DM 

Das Grab des Pharao 

Atarl K10,- DM 

Maze Man 

Sharp MZ-700 K10,- DM 

Superhirn 

Laser K.10,- DM 

Defender 

Apple K10,- DM 

Jupiter Lander D 16,- DM 
aus GPU 12/84 

VC-20 K10,- DM 

Synthisound - D 16,- DM 

Underground 

Commodore 64 K10,- DM 

Lösung von 

Gleichungssystemen D 16,- DM 

Duell 

ZX Spectrum K 10,- DM 

Meteor Storm 

TI-99/4A K10,-. DM 

Chicken Joke 

Apple Ile K10,- DM 

Grafik-Tablett 

VZ-200/Laser 210 K10,- DM 

Zahlensysteme 

Data Generator 

Sharp MZ-700 K10,- DM 

Kniffel 

Sharp PC 1251 K10,- DM 

Leasing Consult 

Sharp MZ 80 A K10,- DM 

Speed Print 
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Dieses empfehlenswerte Buch ist ideal 
für alle diejenigen, die den IBM 
Personal-Computer mit Programmen 
nutzen wollen, die sie "von der Stange” 
kaufen oder in Zeitschriften und 
Büchern abgedruckt vorfinden. Aber 
auch jene, die für ihren PC selbst 
BASIC-Programme erstellen wollen, 
sei es aus reiner Neugier oder für eine 
individuelle Problemlösung Das 
Buch behandelt: 
-Die Nutzung der System-Grund- 
komponenten: System-Einheit, Ta- 


statur, Bildschirm, Drucker und 
Diskettenstation; 

- Das Starten von auf Diskette fertigge- 
kauften Programm-Paketen bzw. von 
Programmen, die aus Zeitschriften 
oder Büchern übernommen werden; 

-Das Schreiben von BASIC-Pro- 
grammen, ausgehend von den 
Grundlagen über das Speichern von 
Daten auf Disketten bis hin zur Dar- 
stellung von Grafiken auf dem 
Bildschirm. 

Im Anhang findet man eine Zusam- 


von Jay Tuck y 


CPU-Bibliothek 


menfassung der BASIC-Anweisun- 
gen, Plattenkommandos und Fehler- 
meldungen. Außerdem listeter den PC- 
Standardzeichensatz auf und ver- 
gleicht ihn mit dem auf den meisten 
Druckern verfügbaren Zeichen. Bei der 
Lektüre dieses Buches bleiben beim 
IBM-PC Anwender sicherlich keine 
Fragen offen. 


Die Daten: 
Mc Grawhill/Osborne 1984, 370 Seiten, 
ISBN 3-89028-011-0, DM 57,- 


Der Schmuggel von strategischer 
Elektronik in den Ostblock ist Big Busi- 
ness - betrieben von westlichen Ge- 
schäftemachern und gesteuert von öst- 
lichen Geheimdiensten. NATO-Exper- 
ten halten ihn inzwischen für das 
Spionage-Thema des Jahrzehnts. 
Drehscheibe ist die Bundesrepublik 
Deutschland. 

Die authentischen Ereignisse in 
diesem Buch wurden aus Hunderten 
von Interviews, Anklageschriften, Re- 
gierungsprotokollen und bislang un- 
veröffentlichter Ostblock-Literatur in 
mehrjähriger Arbeit zusammengetra- 
gen. Das Ergebnis ist ein packendes 
zum ersten Mal Licht in die wirre Welt 


Ein absolutes Muß für Besitzer der 
ATARI-Homecomputer, die sinnvolle 
BASIC-Programme benötigen. Pro- 
grammierkenntnisse sind nicht erfor- 
derlich; alle Listings sind unverändert 
ablauffähig. 

Das Buch enthält eine Sammlung ferti- 
ger, getesteter Software, die die spezifi- 
schen Eigenschaften der ATARI- 
Computer ausnutzt. Es 


sind Pro- 
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Dokument unserer Zeitgeschichte, das 
von Waybillnummern und dicken 
Dollar-Bündeln wirft, in der Embargo- 
Schieber ihre dunklen Geschäfte mit 
strategischen Computern betreiben .- 
und dabei Millionen kassieren. 

In allen farbigen Details werden die 
Tricks beschrieben, mit den sieihre ver- 
botene Fracht durch ein internationa- 
les Labyrinth von Scheinfirmen und 
Speditionen, Tarnunternehmen und 
mysteriösen Mittelsmännern lenken. 
Der Wettlaufzwischen Ostund West ist 
zu einem Kampf um Bits und Bytes ge- 
worden. ARD-Fernsehredakteur Jay 
Tuck beschreibt das dramatische Zu- 
sammenspiel zwischen Politik und Ge- 


gramme aus folgenden Bereichen 
enthalten: Finanzberechnungen, Zins- 
rechnungen, Immobilien, Datenana- 
lyse, Dateiverwaltung und mathemati- 
sche Übungen. 

Konkrete Beispiele: Barwert-Ermitt- 
lung, Ertragsschwelle, Mietberechnun- 
gen, Personaldaten-Verwaltung, Fahr- 
tenbuch. 


heimdiensten, während europäische 
Regierungschefs mit Washington um 
eine angemessene Antwort auf den 
Transfer strategischer Technologien 
ringen. Für den Laien verständlich 
wird die waffentechnische Bedeutung 
der neuen Technologien erläutert - bis 
hin zu der Gefahr, daß Software- 
Saboteure in die programmierten Ge- 
heimziele von Atomraketen eingreifen 
und sie in einen todbringenden Bu- 
merang verwandeln. 


Die Daten: 

Heyne, 1. Auflage 1984, 
269 Seiten, DM 6,80, 
ISBN 3-453-02008-1 


Im Anhang ist eine Bibliothek univer- 
sell verwendeter Unterprogramme ent- 
halten, die leicht in eigene Programme 
eingebaut und immer wieder verwendet 
werden können. 

Die Daten: 

Sybex, 1. Auflage 1984, 

192 Seiten, 148 Abbildungen, 

DM 34,-, ISBN 3-88745-068-x 


CPU 75 


Ein Computer wie der 64er von Com- 
modoıe kann einem noch so um- 
fangreichen Manualnichterschöpfend 
besprochen werden, da die Didaktik 
dies vom Konzept her verbietet. Um die 
dadurch aber vorprogrammierten 
Lücken wirkungsvoll schließen zu kön- 
nen, bietet sich die Form des Lexikons 
an. DATA-BECKER präsentiert ein 
tolles Kompendium, das als Nachschla- 
gewerk jedem C-64-User ein wertvol- 
ler Begleiter und oft unersetzlicher Hel- 
fer sein kann. Da die Autoren keine 
Theoretiker sondern selbst Anwender 
des C-64 sind, ist ein Lexikon vom User 
für den User entstanden, das alle Regi- 
ster seiner Gattung zieht. Mein Urteil: 
Sehr empfehlenswert! 


Die Daten: 
DATA-BECKER, 1. Auflage 1984, 
354 S., DM 49,-, ISBN 3-89011-013-4 


und Musik. Aus dem Englischen von 
Michael Koulen 


Dieses Buch gibt Ihnen 21 phantasie- 
volle, witzige, anspruchsvolle Spiele an 
die Hand, die speziell für den Dragon 
bzw. den ZX Spectrum (einen der meist- 
verkauften Computer der Welt) ge- 
schrieben wurden und Ihnen viele ver- 
gnügte Stunden bereiten werden. Alle 
Spiele sind durchgetestet, anwen- 
dungssicher und machen vollen Ge- 
brauch von all den aufregenden Mög- 
lichkeiten der beiden Computer. 

Jedes Programm ist mit Erklärungen 
versehen, wie das Spiel gespielt wird 
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Jordan Sicchellonkmarger 


.. DAS 
DATABECKER 
LEXIKON 
ZUM 
COMMODORE 64 


EIN DATA EBEGHCERE ENLICHEN 


und wie das Programm funktioniert. 
Tips, wie man sie kreativ und auf 
persönliche Zwecke hin verändern 
kann, sind ebenfalls enthalten, so daß 
eine fast unbegrenzte Zahl von Ab- 
wandlungsmöglichkeiten zur Verfü- 
gung steht. 


Einige der Spiele stützen sich auf solch 
populäre Hits wie ’Invaders’ und 
’Squash’, andere sind völlig neu wie 
etwa ’Fang den Drachen‘, "Schluchten- 
überquerung und ’Kommando- 
sprung‘. Es gibt ein Wörterpuzzle, das 
die ganze Familie beschäftigen kann, 
Wettkampfspiele, Brettspiele, Aben- 
teuerspiele und ein faszinierendes 
Konversationsprogramm, das den 
Computer auf Ihre Fragen antworten 
läßt. 


Normalerweise sind Spiele dieser Qua- 
litätund Klasse nur einzeln auf Casset- 
ten zu bekommen. Dieses Buch ist also 


Mike James $.M.Gee 
Kay Ewbank 


DuMont \ 


für den Computerbesitzer nicht nur 
amüsant und dennoch lehrreich, son- 
dern erspart ihm darüberhinaus be- 
trächtliche Ausgaben. 


Über die Autoren: 

Mike James liefert regelmäßige Bei- 
träge für die Zeitschriften "Computing 
Today’ und ’Electronics and Com- 
puting Monthly”. 

S.M. Gee schreibt u.a. auch regelmäßig 
für 'Computing Today”. 

Kay Ewbank ist ein erfahrener Pro- 


_ grammierer, der schon an vielen Ge- 


meinschaftsprojekten mit den beiden 
anderen Autoren beteiligt war. 


Interessenten: Alle Besitzer des ZX 
Spectrum bzw. des Dragon 32 oder 
Dragon 64, sowie alle, die sich für wit- 
zige, lebhafte Computerspiele in 
Microsoft interessieren (Microsoft) 
läuft auch auf anderen Computer). 

Die Daten: DuMont Buchverlag, 160 S.. 
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Der neue Heimcomputer der Schnei- 
der "Computer Division” hat für einige 
Verwirrung auf dem Markt gesorgt: un- 
ter dem Namen Armstrad bereits in Eng- 
land ein Verkaufsschlager, ist der 
CPC 464 nun auch in Deutschland be- 
geistert aufgenommen wurden. Da war 
es eigentlich nur eine Frage der Zeit, 
wann bei Data-Becker die erste 
Literatur für den ”Schneider” aufgelegt 
wurde. Ich muß allerdings sagen, daß 
ich dennoch von der Entschlußkraft 
Dr. Achim Beckers verblüfft war. Noch 
warten nämlich viele Computer-Fans 
auf ihr CPC-Gerät, da liegen bereits 
_ drei Titel für diesen Rechner vor. 


ist ein Buch für alle Besitzer der SVI- 
Homecomputer, die eine Sammlung 
sinnvoller Basic-Programme benöti- 
gen. Programmierkenntnisse sind 
nicht erforderlich; alle Programme 
sind unverändert ablauffähig. 


Der Band enthält eine Sammlung von 
fertigen, getesteten Programmen, die 
die spezifischen Eigenschaften der 
SVI-Computer ausnutzen. Es sind Pro- 
gramme aus folgenden Bereichen ent- 
halten: Finanzberechnungen, Zins- 
rechnungen, Immobilien, Datenana- 
lyse, Dateiverwaltung und mathema- 
tische Übungen. 

Konkrete Beispiele: Barwertermitt- 
lung, Ertragsschwelle, Mietberechnun- 


Dieses Buch versucht, Ihnen die 
musikalischen Leistungen des Atari 
näherzubringen. Angefangen bei ein- 
facher Tonerzeugung werden nach und 
nach die Anforderungen etwas höher. 
Es wird u.a. gezeigt, wieSound in eigene 
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Das hier vorgestellte Buch wendet sich 
an den absoluten Anfänger, der Schritt 
für Schritt mit allem nötigen Know- 
how vertrautgemacht wird, um gewinn- 
bringend mit seinem 464er arbeiten 
zu können. 

Auf gut 200 Seiten bereitet Erfolgsautor 
Szczepanowski den Stoff so auf, daß 
zum einen auch der Neuling Schritt 
halten kann, zum anderen aber die In- 
formation nicht auf der Strecke bleibt. 
Für CPC-User ist dieses Data-Becker- 
Buch ein wirkliches Muß! 

Die Daten: 

DATA-BECKER, 1. Auflage 1984, 

206 S., DM 29,-, ISBN 3-89011-037-1 


gen, Personaldaten-Verwaltung, Fahr- 
tenbuch. 

Im Anhang ist eine Bibliothek univer- 
sell verwendbarer Unterprogramme 
enthalten. die leicht in eigene Pro- 
gramme eingebaut und immer wieder 
verwendet werden können. 


Die fertigen Programme können zu 
Anwendungen herangezogen werden, 
auch von Leuten, die das Programmie- 
ren selbst nicht beherrschen. Aufjeden 
Fallersparen sie die Zeitund Mühe, die 
Eigenentwicklungen kosten. Die Un- 
terprogrammbibliothek ist universell 
einsetzbar. 

Die Daten: Sybex, 1. Aufl. 1984, 192 S., 
34,- DM, ISBN 3-88745-074-4 


", 
Gras 


SsVvI has 
Programm- 
Jamıpmnlurndg 


Programme eingebaut wird. Gerade 
diejenigen, die bisher keine große Pro- 
grammiererfahrung haben, werden 
dieses Buch sehr interessant finden. 
Ausführliche Dokumentationen und 
Beispiele begleiten jedes Kapitel und 


bilden so leicht verständlichen Text. 
Die Daten: 


Birkhäuser 1984, 126 Seiten, 
ISBN 3-7643-1658-6 
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CPU-Test 


LANGENSCHEIDT’S 


”F]ektronischer Vokabeltrainer 


Latein ALPHA-8” 


Wenn noch Ende der Siebziger Jahre jemand davon gesprochen hätte, ein "elektronisches Wörter- 
buch” für die ’tote’ Sprache Latein herauszubringen, hätte man ihn höchstwahrscheinlich für wahnsin- 
nig erklärt. Inzwischen jedoch hat die Sprache des Horaz eine echte Renaissance erlebt, sodaß es nie- 
manden verwundert, daß der renommierte Fremdsprachen-Verlag Langenscheidt sogleich nach Eng- 
lisch und Französisch einen ”Vokabeltrainer” für Latein auf den Markt gebracht hat - ein handliches 
kleines Gerät, in dem ein Taschenrechner sowie ein deutsch-lateinisches und lateinisch-deutsches Wör- 
terbuch mit 4000 Stichwörtern vereint sind. Für Ihre ”neue CPU” habe ich mir das Gerät einmal näher 


angeschaut und will deshalb auch den Test dazu nicht schuldig bleiben ... 


a T————ö6e gg] 


Langenscheidt zeichnet 
‚war für die Edition des Wör- 
terbuches, d.h. Auswahl und 
Präsentation der  Stich- 
wörter, verantwortlich. die 
Hardware jedoch wird von 
Sharp beigesteuert, wodurch 
auch von der Technik herein 
Höchstmaß an Zuverlässig- 
keit sichergestellt sein sollte. 
Das Gerät kommt. wie schon 
angesprochen. in Gestalt ei- 
nes LCD-Taschenrechners 
im passenden Etui zum Be- 
nutzer, was ihm die Hand- 
lichkeit eines Taschen- 
wörterbuches gibt. 

Unter der neunstelligen 
Flüssigkristallanzeige (7x5 
Punkt-Matrix) befindet sich 
der "power-switch”, der auch 
zur Anwahl der drei mög- 
lichen Betriebmodi dient: 
Rechnen. Latein-Deutsch 
und Deutsch-Latein. 

Über den eingebauten Rech- 
ner ist nicht viel zu sagen. da 
er lediglich die Standardei- 
genschaften aufweist: die 
Grundrechnungsarten, Pro- 
zentautomatik, saldierenden 
Vollspeicher und "constant 
memory” (Speicherinhalte 
bleiben auch nach Ab- 
schalten des Gerätes er- 
halten). Unser Test bezieht 
sich daher auch ausschließ- 
lich auf die Wörterbuch- 
Funktionen. 
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Einfache Bedienung 


heißt freilich nicht, daß die 
Handhabung simpler als der 
Gebrauch eines "konventio- 
nellen” Diktionärs wäre, 
sondern bezieht die Tatsache 
mit ein. daß es sich beim 
"ALPHA-8” um ein elektro- 
nisches Arbeitsgerät handelt, 
dessen Betrieb über Druckta- 
sten geteuert werden muß. Ist 
diese Einschränkung ge- 
macht, so darf das Wort von 
der "einfachen” Bedienung 
auch fürsolche Zeitgenossen 
gelten. die den Umgang mit 
“Computern” nicht gewohnt 
sind. 

Sie wählen zunächst die ge- 
wünschte Wörterliste, also 
entweder den lateinisch- 
deutschen oder den deutsch- 
lateinischen Teil. Ist das ge- 
schehen. so drücken Sie die 
Taste ABCl1. worauf Ihnen 
der ALPHA-8 der Reihe 
nach die Buchstaben des 
Alphabets aufs Display 
bringt und Sie den Anfangs- 
buchstaben des gesuchten 
Wortes bestimmen. Dann 
wird dieser Vorgang für den 
zweiten Buchstaben wie- 
derholt. worauf Sie mit den 
Suchtasten (vor und zurück) 
die Wortliste durchforsten 
können. Taucht der gesuchte 
Begriff auf, drücken Sie 
"Übersetzen” und erhalten 
a gewünschte Informa- 
tion. 


Interessante 
Zusatzfunktionen 


Schwierige Begriffe, die Ih- 
nen auch nach öfterem 
Nachschlagen nicht eingän- 
gigsind. können Sie miteiner 
speziellen "MEMO"-Taste 
markieren und immer wie- 
der gezielt abrufen. Bis zu 16 
Wörtern macht der ALPHA- 
8 das mit: eine, wie ich 
glaube. nützliche Service- 
Funktion, da ich mich selbst 
mit einigen dieser Brocken 
quäle. 

Ein weiteres nützliches Lei- 
stungsmerkmal ist die "Üben”- 
Taste. mit der über einen in- 
tegrierten Zufallszahlenge- 
nerator beliebige Wörter des 
jeweiligen Teiles angezeigt 
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werden, dieman dann entwe- 
der selbst übersetzen oder 
auch auf Wunsch in die je- 
weils andere Sprache über- 
tragen lassen kann. Da- 
durch ergibt sich ein höherer 
Lerneffek, da man nicht 
ständig Wörter eines be- 
stimmten Anfangsbuchsta- 
ben lernt. 


Übersetzungstext 


Ein gutes Wörterbuch er- 
weist seinen Wert bekannt- 
lich in Zweifelsfällen. Des- 
ALPHA nicht unbedingt 
LP) cht un 
die Einleitung zum Galli- 
schen Krieg vorsetzen, son- 
dern Texte, die zwar nicht ex- 
trem unverdaulich, dennoch 
aber keine Ohrwürmer sind. 
Der erste dieser Abschnitte 
ist die bekannte Geschichte 
von Latona, die mit den 
Zwillingen Diana und 
Apollo schwanger geht und 
auf ihrer Wanderschaft 
durch Lykien mit einem 
Trupp Landarbeiter zusam- 
mentrifft. 
Da sie durstigist, bittet sie die 
Bauern. ihr einen Schluck 
Wasser aus einem nahe gele- 
genen Tümpel zu gönnen. 
Die Bauern jedoch machen 
sich lediglich lustig über sie; 
einer tritt sogar mit dem Fuß 
in den Teich. um den schlam- 
migen Boden aufzuwüh- 
len und das Wasser somit un- 
genießbar zu machen. 
Ovid, bei dem wir im sech- 
sten Buch seiner "Meta- 
morphosen” (366ff) die Ge- 
schichte finden, erzählt nun 
weiter... 


IUVAT 
SUBMERGERE 


TURPES 
QUONIAM 
DISCEPTANT 
APERIENDA EST 
TRIBUATUR 


Distulit ira sitim, neque enim 
iam filia Coei/supplicat indig- 
nis nec dicere sustinet ultra/ 
verba minora dea tollensque 
ad sidera aeternum 
stagno’ dixit 'vitatis in isto”./ 
Eveniunt optata deae: iuvat 
esse sub undis,/et modo tota 
cava submergere membra pa- 
Iude,/nunc proferre caput, 
summo modo ie nare,/ 
saepe super ripam stagni 
consistere, saepe/ in gelidos 


resilire lacus, sed nunc 
juoque turpes/ 
litibus exercent linguas 


ue pudore,/quamvis 
sint sub aqua, maledicere 
temptant. 


Die Wörter. bei denen ich 
stutzte, die ich also mit mei- 
nem ALPHA-8 abklären 
mußte, sind fett gedruckt. 
Vergleichen Sie dazu bitte 
die Tabelle am Ende dieses 
hnittes. 

Literaturprobe Nummer ist 
ein Text des unverwüstlichen 
Cicero (was auf deutsch üb- 
rigens 'Kichererbse’ heißt). 
Ich biete Ihnen auch hier 
wieder das lateinische Origi- 
nal (Orator, 33, 116), wobei 
diejenigen Wörter, die ich 
nachschlagen mußte, wie- 
derrum fett gedruckt sind. 


Et quoniam in omnibus, quae 
ratione docentur et via, pri- 
mum constituendum est quid 
quidg ıe sit - nisi enim inter 
eos, qui disceptant, convenit, 
quid sit illud, de quo ambi- 
gitur. nec recte: disseri. nec 
umquam ad exitum 

potest -, explicanda est saepe 
verbis mens nostra de quaque 
re atque involuta rei notitia 


SITIS. -IS (F) 


nicht gefunden 
IUVAT. IUVO 
SUB (ABL) 
MERGO, MERSI 
MERSUM 
PALUS. -UDIS 


nicht gefunden 
‚nicht gefunden 


QUONIAM (IND) 

nicht gefunden 
APERIO: -RUI: -RTUM 
TRIBUO. -UI. -UTUM 3 


definiendo aperienda est, 
siquidem est definitio oratio, 
quae quid sit id, de quo 
agitur, ostendit quam brevis- 
sime. tum, ut scis, explicato 
genere cuiusque rei viden- 
dum est, quae sint eius ge- 
neris sive formae sive partes, 
ut in eas tribuatur omnis 
oratio. 


Hier nun die Tabelle. die Ih- 
nen erstens die von mir ge- 
suchten Begriffe, zweitens 
das jeweils gefundene Stich- 
wort sowie drittens die im 
ALPHA-8 gebotenen Über- 
setzungen aufzeigt: 

siehe unten 


Das sind zwölf gesuchte und 
neun gefundene Wörter - die 
Auswertung unserer Statistik 
bereitet somit keine Schwie- 
rigkeiten: 75% konnten 
durch den ALPHA-8 abge- 
deckt werden. 

Bei einem gespeicherten Wort- 
schatz von 4000 "Datensät- 
zen” ergibt das. wie ich 
glaube, ein ordentliches Er- 
gebnis und Beweis für qua- 
litativ ausgewogene Wort- 
wahl. Wenn man darüber hin- 
aus die Erfahrung berück- 
sichtigt, daß manches er- 
schlossen werden kann. so- 
fern Schlüsselbegriffe be- 
kanntsind. erreicht man eine 
beachtliche Transparenz der 
vorgelegten Texte. 


Ergonomie 


Der Begriff Ergonomie ist 
ein viel strapaziertes Wort 
unserer Tage: es meint und 
umschreibt all das, was Ar- 
beitsmittel benutzergerecht 


unter, unten an 
tauchen. versenken 


(entfällt) 

häßlich. schändlich 

Weil ja 

(entfällt) 

öffnen. enthüllen 
zuschreiben, -weisen. -teilen 
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macht. Auf den mir vorlie- 
genden ALPHA-8 bezogen. 
könnte dessen Grad an Ergo- 
nomie durchaus noch größer 
sein. Da ist zunächst einmal 
das Hochformat. das mir 
nicht einleuchtet. da der 
"Vokabeltrainer" vorrangig 
Texte anzeigen soll. die auf 
der neunstelligen Anzeige 
nur sehr selten Platz finden. 
Querformat ä la Pocketcom- 
puter hätte hier die Chance 
eröffnet, eine größere An- 
zeige (16 oder 20 Stellen) und 
damit mehr Komfort zu 
bieten. 

Dieser Mangel macht sich 
vor allem auch deshalb 
störend bemerkbar. weil der 
ALPHA-8 ein heute übliches 


Zuerst das Listing: 


5 
5 


Scrolling vermissen läßt: 
paßtein Wort nicht auf's Dis- 
play. so rollt es auf Knopf- 
druck nicht nach links weg, 
um dem Rest Platz zu 
machen, sondern wird ganz 
gelöscht. worauf das Über- 
bleibsel (und sei es auch nur 
ein einziger Buchstabe) an- 
gezeigt wird. 


Beispiel: 

‚I.M.M.ORT.A.L.LS (unsterb- 
lich) 

wird dargestellt durch 
.IM.M.O.RT.A.L.I und (auf 
Knopfdruck) .S. .E 


Die Punkte zwischen den 
einzelnen Buchstaben er- 
scheinen freilich auf der An- 


 SCF3 ioro 
SCFE C3 


zeige des Langenscheidt- 
ALPHA-8 nicht. sondern sol- 
len hier lediglich die Stellen 
zählen helfen. Sie sehen 
sicher recht gut. wie verwir- 
rend die Anzeige”SE” ist. die 
dann erscheint. wenn man 
IMMORTALI(S) zu Ende le- 
sen möchte (das "E” bezieht 
sich auf die Ablativ-En- 
dung). 

Um so unverständlicher wird 
dieses Manko. wenn man die 
Erfahrung der Firma Sharp 
im Bau von Taschencom- 
putern und -rechnern be- 
rücksichtigt. 


Fazit: 


Diese Einbuße in puncto 


Komfort sollte man jedoch 


nicht zu eng sehen. Wenn 
man das fehlende Scrolling 
außer acht läßt. so bleibt ein 
kleines Gerät. das ein prakti- 
sches Wörterbuch bietet und 
den psychologischen Anreiz 
besitzt. der in einem Appell 
an den Spieltrieb des Schü- 
lers besteht (ein Taschen- 
rechner ist in jedem Fall in- 
teressanter als ein Taschen- 
wörterbuch). 
Allerdings liegt der Preis mit 
knapp 160 Mark ein wenig 
über dem eines ausgezeich- 
neten Wörterbuches. Hier 
sollte etwas mehr Marktge- 
spür von seiten des Herstellers 
einsetzen. 


(sk) 


für den Spectrum 


Wie beim ersten Mal versprochen wurde, 
nun ein Programm, das den Bildschirm 
randet. Zur einfacheren Programmierung 
| wurden zwei Romroutinen benutzt, 


die ausführlich erklärt werden 


bÜNZ LABS 
RET 
END 


Wie Sie vielleicht selbst merken wer- 
den, habe ich das 2. Programm des 
letzteren Kurses verwendet, um die 
obere Linie zu ziehen. Danach kommt 
ein Mittelteil, der für das Setzen der 
Punkte links und rechts verantwortlich 
ist. Der Schlußteil ist eine Routine, die 
genauso abläuft, wie der Anfangsteil, 
nur mit dem Unterschied, daß die 
Adresse des ersten Bytes der unteren 
Bildschirmzeile von einer ROM- 
Routine berechnet wird. 

Nun zu der Erklärung: 


DALL 
FOR 


Zeile 10 - Zeile 70 
Diese Zeilen dürften noch aus CPU 11/ 
84 bekannt sein. 
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Zeile 80 - Zeile 200 

Dieser Mittelteil ist, wie schon oben er- 
wähnt, dafür verantwortlich, daß die 
Punkte links und rechts gesetzt werden. 
Auch in dieser Routine wird. ein ROM- 
Einsprung benutzt. Dieser Einsprung 
wird ebenfalls vom Interpreter benutzt, 
wenn Sie den Basic-PLOT-Befehl an- 
wenden. So muß das Register C mit 
dem X-Wert und das Register B mit 
dem Y-Wert geladen werden. Danach 
kein ein Einsprung ab Adresse 8933 
(=22E5 HEX) erfolgen. Diese ROM- 
Routine setztalso einen Punkt. Danach 
wird zum aufrufenden Programm. also 
zu unserer Routine, zurückgekehrt. Da 
essehrschwierig festzustellen ist, ob ein 
Register durch die Benutzung des 
ROMSs verändert wird, sichert man vor 
dem Einsprung alle noch benötigten 
Werte. Diese Sicherung kann entweder 
im Speicher aufeinem dafür vorgesehe- 
nen Platz erfolgen, oder man bemäch- 
tigtsich des Stapels durch eine einfache 
PUSH-Anweisung. 

In Zeile 80/90 laden wir also das Regi- 
ster Bund C mit den entsprechenden 
Werten. In der Zeile 100 wird nun dieser 
Wert gesichert und mit dem CALL- 
Aufrufin Zeile 110 geplottet. Wirhaben 
nun unseren ersten Punkt in der 
zweiten Pixelzeile ganz links. Um den 
rechten Punkt auch noch zu bekom- 
men. holen wir das gerettete BC- 
Register wieder zurück, und bevor wir 
nun den Wert im C-Register auf255 än- 
dern. pushen wir wieder. Dies darum, 
damit wir uns später sparen, das Regi- 
ster C wieder auf 0 zu stellen. Nach der 
Anderung in Zeile 140, wird die Plot- 
Routine des ROMs ein zweites Mal be- 
nutzt. Nach der zweiten Rückholung 
der Register B und C. wird das B- 
Register um | erniedrigt, sodaß der Y- 
Wert auf die nächste Pixelzeile zeigt. 
Bevor wir nun zu dem Label LABS zu- 
rückspringen. wird mit Hilfe der An- 
weisungen in den Zeilen 180 und 190 
geprüft, ob das B-Register schon auf 0 
steht. Eine Prüfung auf 0 kann in As- 
sembler auf zwei Arten erfolgen: 

l) man benutzt "Automatikbefehle”, 
wie zum Beispiel LDIR oder 

2) durch gezieltes Abfragen des ZERO- 
FLAGS 


Dieses Flag wird durch manche Be- 
fehle gesetzt oder rückgesetzt. So auch 
von dem AND A-Befehl. Dieser Befehl 
ändert weder Register- noch Speicherin- 
halte sondern setzt nur die ent 
sprechenden Flags. Um dies zu ver- 
deutlichen, wird im Anhang der logi- 
sche Befehl AND erklärt. Die Zeile 200 
beeinhaltet eine bedingte Sprungan- 
weisung. mit dem Ziel, die Punkte links 
und rechts weiter zu plotten, wenn das 
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B-Register (=Y-Wert) noch auf 0 
steht. 


Zeile 210 - Zeile 270 

Der Schlußteil entspricht in etwa den 
Zeilen 10 - 70. Aber statt der absoluten 
Angabe der Anfangsadresse (siehe 
Zeile 30), wird hier eine ROM-Routine 
aufgerufen, die uns die Adresse errech- 
net. Dazu muß in dem BC-Register wie- 


Die Einsteiger-Modelle für Schüler und Studenten 


Floppy Disk Controller für 2 Laufwerke 
mit LASER-DOS, Speicherkapazität 80 KByte. 


LASER 210, 8 KByte RAI 
erweiterbar um 16 oder 64 KByte, 

8 Farben, Programmsprache BASIC. 

LASER 310 mit gleicher Ausstattung wie Laser 210, 
aber 18 KByte RAM und mit Schreibmaschinen-Tastatur. 
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der die X- und die Y-Position stehen. 
Doch brauchen wir uns nicht darum zu 
kümmern, denn die entsprechnden 
Werte stehen noch vor der Mit- 
telteilroutine. Nach der Ausführung 
muß natürlich mit RET das Programm 
beendet werden. 


Das entsprechende BASIC-Listing 
sähe nun folgendermaßen aus: 


Berichtigung 


In der CPU 9/84 veröffent- 
lichten wir einen Leserbrief, 
der von einen Herrn P. 
Bruckneran uns geschrieben 
wurde, unter der Rubrik 
Club-Infos. 

Durch einen technischen 
Fehler war dieser Leserbrief 
nicht als derselbe gekenn- 
zeichnet. 


, 


Generalimporteur: SANYO VIDEO Vertrieb GmbH & Co. 
Lange Reihe 29, D-2000 Hamburg 1, Tel. 040/2801045-49 
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CPU-Markt 


Weder der Commodore VC-20 
noch der C-64 besitzen ei- 
nen IEEE-Bus. Damit sind 
die Anwender dieser lei- 
stungsfähigen Geräte auf 
modellspezifische Peri- 
pherie des Herstellers be- 
schränkt. 


Den Schlüssel zu vielen 
neuen Möglichkeiten bietet 
ein in England entwickeltes 
Interpod-Interface, das seit 
September auch auf dem 
deutschen Markt erhältlich 
ist. 


Über eine IEEE-Bus (Com- 
modore-Version), einen ge- 
trennten seriellen Ein- und 
Ausgang sowie eine RS-232-C 
Schnittstelle können die 
ganze Palette der Commo- 
dore Peripherie Einheiten 
(z.B. Serie 4000 und 8000) 
und RS-232-C Geräte ange- 
sprochen werden. 


Commodore-Anwendern im 
Büro- und Schulbereich 
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bringt das Interpod-Inter- 
face somit eine mehr als 
brauchbare Erweiterung ihrer 
Commodore Ausrüstung. 


Das Interpod-Interface ver- 
fügt über einen eigenen 6502 
Prozessor, der sich praktisch 
um alles kümmert. Ange- 
schlossen wird das Interpod- 
Interface an die serielle 
Schnittstelle des jeweiligen 
Rechners. 


Angeboten wird das Inter- 
pod-Interface zum empfoh- 
lenen Endverbraucherpreis 
von DM 398,-. Nachweis 
über: 

Boston Computer Handels- 
ges.m.b.H., München. 
INTERPOD ist ein eigen- 
ständiges, varrierbares Inter- 
face. Es ermöglicht die Kom- 
munikation zwischen VC-20/ 
Commodore 64 und sämtli- 
chen Commodore-Periphe- 
rie-Einheiten bzw. RS232- 
Geräten. INTERPOD ist 
ausgestattet mit seriellen 


Schnittstellen von/zu den 
Steckplätzen. Es kann über- 
all innerhalb der seriellen 
Reihe plaziert werden. 


Vorhandene serielle Geräte 
werden von INTERPOD 
nicht berührt und können 
normal adressiert werden. 


Ist adressierte Peripherie 
nicht auf dem seriellen Bus 
ansprechbar, sucht INTER- 
POD auf dem Parallelbus. 


Eine reservierte Peripherie- 
Adresse (i.d.R.4) kann für die 
Kommunikation mit RS232- 
Peripherie gewählt werden. 
Alle 3 Busse können si- 
multan benutzt werden. 


INTERPOD _ belegt den 
Computerspeicher in keiner 
Weise. Die Benutzung der 
verschiedenen I/O-Ports (ein- 
schließlich Cartridge Slot) ist 
nicht beschränkt. Die Spei- 
cherkapazität der Zentral- 
einheit bleibt unbenutzt. 


Technische Daten: 
Peripherie: alle Commodore 
IEEE-488-Geräte 

alle RS232-Geräte 

alle seriellen Commodore- 
IEEE-Geräte 
Mikroprozessor:6502 
Stromspannung: 220 V 
Stromstärke: 15.5 W. Max. 
Abmessung: 16cm x 10cm x 
32mm 

Gewicht: 0,570 kg 
Schnittstellen: serieller Ein- 
gang, serieller Ausgang 
TEEE-488 parallel. RS232C 
komplett (V.24 kompatibel) 


RS232C: 

Baudrate: 50. 75. 110, 134.5, 
150, 300, 600, 1200, 1800, 2400, 
4800, 7200 

Parity: Selectable 

stop bits: Selectable 

Word length: Selectable 
Carriage return delay: Selec- 
table 

Default for RS232C: Device 4 
1200 Baud/ 8 bits+ 1 stop bit 
(no parity) 
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DA, 


Unter dem Stichwort "Drucker May 
warten Sie brandheiße Intonmall onen 


Messebericht 


Vom 17. - 21.10.84 war Stutt- 
gart wieder Schauplatz der 
Hobbyelektronic ’84. Ihre 
’Compute mit’ war für Sie 
dabei, lesen Sie dazu unseren 
Bericht auf Seite 50! 


- i 
Druckepwas st 


”Sache”? 


Basic für Kinder — 


Aus dem Sybex-Verlag erreichte 
uns diese völlig neue Art Basic zu 
erlernen, mit einem Buch und ei- 
ner Programmkassette — die mit 
ihrer außerordentlichen, aben- 
teuerlichen Handlung wohl die 
interessanteste Möglichkeit ist, 
schon das Interesse bei Kindern 
über Computer zu wecken. 


Lesen Sie auf Seite 54. 
/ Hosey- 2 
N FLERTRONIC_ 
Es &orurronr | 


m 
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Und wieder exzellente Software für 
Ihren Commodore: dr 


u.a. Escapee für VG-20 


Befreien Sie Escapee aus den 
Händen des bösen Monsters! 
Diese Aufgabe erfordert Ihr 
ganzes Geschick und Reak- 
tionsvermögen. Der Riesen- 
spaß erwartet Sie auf Seite 
54! 


Bücherecke: 


Wieder stellen wir Ihnen inter- 
essante Computerliteratur 
vor. Auf den Seiten 12 und 37 
erwarten Sie Neuerscheinun- 
gen, wie z.B. das Handbuch 
für den Familiencomputer aus 
dem Delphin-Verlag. 


ugunserer Adventure-Ecke: 


n Markt ist. "The Institute”, das ist 


en. Versuchen Sie aus dem 
sen Sie dabei phantastische 


2 Testberichte: 


Der Commodore-Drucker 
MPS-802 und der Floppy-Er- 
satz FS 9600 wurden auf 
Herz und Nieren geprüft. 
Ausführliche Testberichte 
schildern unsere Ergebnisse 
auf Seite 31 und 55. 


Em 
Val, 


de: MA 
.@®. 1 DR 


